my @new; foreach my $array ($values) { my @inner; foreach my $value ($array) { push @inner, $value if $value ne "UNKNOWN" } push @new, \@inner } $values = \@new;