Re^9: How can I avoid code repetition here

What do you mean?

$_ = 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.
[download]

Comment on Re^9: How can I avoid code repetition here Download Code