Select Code to Download

my %values = ( "apple"  => "1",
               "pear"   => "3",
               "orange" => "3",
               "melon"  => "2",
               "grape"  => "2");

Level 3:
Pear, Orange
...

Level 1:
apple

my %hash = (
  1 => ["apple"], 2 => ["melon", "grape"],
...
$hash{1}[1] = "pickle";

print "Level $_\n@{$hash{$_}}\n\n" for reverse sort keys %hash;