Select Code to Download

@array1 = ("one", "two", "three", "four", "five");
@array2 = ("banana", "pear", "apple");
...
fruit => \@array2
);

foreach my $group (keys %hash) {
    push @group, @{ $hash {$group}}; 
...
    }

}