my @list = map {$_ => 1} @other_list;
my @filtered_list = grep {$_ =~ /blah/} @some_list;