$size = @array;
$size2 = @pattern;

foreach $line(@array)
{
if (@array[0 .. $size] =~ @pattern[0 .. $size2])
{

print $line;
}
}