Select Code to Download

my @array = (
    [ sort @value1 ],
    [ sort @value2 ],
    # ... and so forth
);

my $prev = [];
@array = grep {
...
    }
    $ret;
} @array;

$myhash{$key1} = $array[0];
$myhash{$key2} = $array[1];