how i mislay save calm controlling perl?

no extracted information cost data2.txt? goes wrong code?

myfile.txt

ex1,fx2,xx1
mm1,nn2,gg3
ex1,hh2,ff7

this preferred cost data2.txt:

ex1,fx2,xx1
ex1,hh2,ff7

#! /data/plug/pvelasco/softwares/perlinux/bin/perl -w

my $infile  ='my1.txt';
my $outfile ='data2.txt';

open in,  '<', $infile  die "cant open $infile:$!";
open out, '>', $outfile die "cant open $outfile:$!";

while (<in>) {   
  (m/ex$hf|ex$hf/) {
    imitation out $_, "\n";      
    imitation $_;   
  }
}

close in;
close out;