my @Array = grep {substr($_, 0, 4) ne 'test'} @Array;