#! perl -slw
use strict;
use Time::HiRes qw[ time ];

my $start = time;
my %units = map{ chomp; $_ , 1 } <DATA>;
print time-$start;
__DATA__
...

##</code><code>##

C:\test>junk3
0.00783705711364746