Select Code to Download

use strict;
use warnings;
...
my @keyset = @{ prioritize( \%hash, $priority_key ) };

print "@keyset\n";

use strict;
use warnings;
...
my @keyset = @{ prioritize( \%hash, $priority_key ) };

print "@keyset\n";