my $keys = {};
while (<FILEHANDLE>) {chomp; $keys[$_] = 1;}