Select Code to Download

my ($oldfirst, $oldsecond) = ( '', '' );

...
    ($oldfirst, $oldsecond) = ($first, $second);
    print "\r$second:$_              ";
}

#! perl -sw
use strict;
...
print "@{[$timer->data('_default')]}", $/;

__END__

C:\test\WORDS>../208899-2 Anonymous Baltic Confirm Delta Entity Font
Gregarious Hazzard Indigo Jalopy Kilo Lascivious Matter
...
0.02 0.02 0.01 0.08 0.01 0.03 0.04 0.07 0.041 0.01 0.01 0 0 0

C:\test\WORDS>