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

##</code><code>##

show_fits() ;

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

##</code><code>##

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

##</code><code>##

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