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

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