$_ = 1;
my $_ = 6;
sub ford { $_ .= 6; };
warn $_;
warn ford();
warn $_;
warn $::_;
__END__
6 at - line 4.
66 at - line 5.
66 at - line 6.
1 at - line 7.