cleaning up warnings about masked vars

cli/filehandles.pl

@@ -11,25 +11,25 @@ my @lines = <$fh>;
 print Data::Dumper->Dump([\@lines], [qw(lines)]);
 
 
-open(my $fh, '<', 'foo.txt');
+open(my $fh2, '<', 'foo.txt');
 
-while(my $line = <$fh>) {
+while(my $line = <$fh2>) {
     print $line;
 }
 
 
-my $fh = IO::File->new('foo.txt', 'r');
+my $fh3 = IO::File->new('foo.txt', 'r');
 
-while(my $line = $fh->getline()) {
+while(my $line = $fh3->getline()) {
     print $line;
 }
 
 
-my $fh = IO::File->new('foo.txt', 'r');
-my @lines = $fh->getlines();
+my $fh4 = IO::File->new('foo.txt', 'r');
+my @lines4 = $fh4->getlines();
 
-print @lines;
-print Data::Dumper->Dump([\@lines], [qw(lines)]);
+print @lines4;
+print Data::Dumper->Dump([\@lines4], [qw(lines)]);
 
 
 1;