BEGIN {
    print time . "\n";
}
use List::MoreUtils qw/any/;
BEGIN {
    print time . "\n";
}
print time . "\n";
my @a = any {$_== 92} 1..100000000;
print "\n";
print time;
print "\n";
print @a;