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