@array = grep{$_ !~ /^MPG4-/}@array;