Select Code to Download

use strict;
my @values = (1, 2, 3, 'a', 4);
...
    last if $item =~ /[^\d]/;
}
print($item);  # Prints 'z', not 'a'.

use strict;

...

# Changing "my $item" to "our $item"
# changes the output to "[1][2][3][a]z"

This is perl, v5.6.1 built for MSWin32-x86-multi-thread