my %hash = (
  1 => ["apple"], 2 => ["melon", "grape"],
  3 => ["pear", "orange"]
);
print "Level $_\n@{$hash{$_}}\n\n" for keys %hash;
#or possibly
my @array = (["apple"], ["melon", "grape"], ["pear", "orange"]);
print "Level ", ++$_, "\n@{$array[$_]}\n\n" for 0 .. $#array;