@a = map $_*20, 1 .. 1e4;; say total_size \@a;; 320176 $found=0; say time; for my $tgt ( 1 .. 20e4 ) { $tgt == $_ and ++$found and last for @a; }; say time; say $found;; 1359149323.02034 1359149541.80419 10000