my $hist = {map{ chomp; $_ => 1 } @{[<FILE>]}}; by wazzuteke
my %lookup = map {chomp; $_ => undef} <$accnts>; by wfsp