foreach (@foo_list) {
    my $x = "blah $_ blah";
    my $foo = $_;
    while ( something() ) {
        # more stuff
        foreach (@bar_list) {
            other( $_ );
        }
    }
    more_with( $foo );
}