Select Code to Download

my @new;
foreach my $array ($values) {
...
    push @new, \@inner
}
$values = \@new;

$values = [ grep { $_ = [ grep { $_ ne "UNKNOWN" } @$_ ] } @$values ]