Select Code to Download

#!/usr/bin/perl
use strict;
...
 {
 print "$j: $hash1{$j}[0] $hash1{$j}[1] $hash1{$j}[2]\n"; *
 }

fruit: ARRAY(0x8775818)
vegetable: ARRAY(0x878fea8)
fruit: apple orange plum
vegetable: leek carrot peas