while ( <$fi> ) {
    #print "$_";
		 
			 my $a = $1 if /(^$name$)/;
			 print $a;
  
}

close $fi;