open(FILE, "$filename") or die "Cant open $filename\n";
my @lines = <FILE>;
close(FILE);

my @patternMatchArray = grep { /$myPattern/ } @lines;

##</code><code>##

open(FILE, "$filename") or die "Cant open $filename\n";
my @patternMatchArray = grep { /$myPattern/ } <FILE>;
close(FILE);