sub ff{print scalar gmtime, "\n"; }
ff;
@g=(1..35_000);
for(@g){
    /(\d+)/ and $ff{$1}=$1;
    /(\d+?)/ and $ff{$1}=$1;
    /(\d+)/ and $ff{$1}=$1;
    /(\d+?)/ and $ff{$1}=$1;
}
ff;
__END__