Perl multiple pattern match

@q=
(
qr/^luci\b/,
qr/sss/,
);
open(FILE,"sam");
while($line=<FILE>)
{
for($i=0;$i<@q;$i++)
{
if($line=~/$q[$i]/)
{
print "match pattern $line.\n";
}
}
}
close(FILE);