Select Code to Download

# sort method
my @values = qw( one foo bar one baz two quack baz );
my %h = ();
...

print "\n\nSort method:\n";
print (join ", ", sort { $h{a} cmp $h{b} } keys %h);