@p = 
(
    qr/^abc/,
    qr/abc$/,
);

for $f ( @foo )
{
    for $p ( @p )
    {
        do_stuff() if $f =~ $p;
    }
}