in reply to The YAPC Quest

Ok, here's one... 
@pickupLine = grep {/'keys'/} @myPorche;

[download]

In Section Perl Monks Discussion