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

$hash{1}[1] = "pickle";

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