Select Code to Download

use warnings;
use strict;
...
}

print "$_ => @{$hoa{$_}}\n" for sort keys %hoa;

ItemName1 => Apple Blue Uno
ItemName2 => Orange Red Dos
ItemName3 => Banana Yellow Tres
ItemName4 => Pear Brown Cuatro
ItemName5 => Watermelon Purple Cinco