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