my %searchlist = map {$_ => 1} glob('*');