$_ = 42;
while(<FH>) {
   print "Inside loop: \$_ = [$_]";
}
print "Outside loop: \$_ = [$_]\n";