Select Code to Download

my @sortedKeys=
    map { ( split /\0/, $_ )[-1] }
    sort
    map { join "\0", @{$hash{$_}}[0,1,2], $_ }
    keys %hash;

    map { join "\0", $hash{$_}[0,1,2], $_ }