my @results;
while (...) {
   ...
   push @results, ...;
}

##</code><code>##

my $found = 0;
my $match;      # Only meaningful when $found is true.

...

##</code><code>##

my $var1;
my $var2;
BEGIN {
   $var1 = ...;
   $var2 = ...;
}