# done - $|++ # done - keys %{ {map {$_ => 1} @list} }; # done - ${\$obj->method}}, @{[sort @list]} # done - do { local $/; }; -- jeffa ACTION for grep CLAUSE, LIST; select ( (select (FH), $|=1)[0] ); !!grep CLAUSE, LIST; s/search/replace/ for LIST; (my $var = $str) =~ s/search/replace/; ## maybe too specific my @placeholders = join ',' => map '?' => @vals;