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

close $fi;

##</code><code>##

perl readwritefile.pl
Use of uninitialized value $a in print at readwritefile.pl line 15, <$fi> line 1.
Use of uninitialized value $a in print at readwritefile.pl line 15, <$fi> line 2.
Use of uninitialized value $a in print at readwritefile.pl line 15, <$fi> line 3.