foreach my $var (@array) {
    my $other_var = ....
    etc.
}

##</code><code>##

my $other_var;
foreach my $var (@array) {
    $other_var = ....
    etc.
}