#! perl -slw
use strict;
use Time::HiRes qw[ time ];;
use List::MoreUtils qw/any/;

print time();

my @a;

$_== 92 and push @a, $_ and last for 1..10000000;

print time;

print @a;

__END__
C:\test>junk38
1325044379.166
1325044379.17017
92