Select Code to Download

foreach       (@fits) { suck_this($_) ; } ;

show_fits() ;

...
    my $_;
    foreach       (@fits) { suck_this($_) ; } ;
}

C:\temp>perl osha.pl
Fits: 5, 6, 7
...
 Read: 'Fit II'
 Read: 'Fit III'
Fits: 5, 6, 7

while (my $_ = <$fh>) { ... }