use warnings;
use strict;

my @array1 = ("one", "two", "three", "four", "five");
my @array2 = ("banana", "pear", "apple");

my %hash = (
    numbers => \@array1,
    fruit => \@array2
);

for my $group (keys %hash){
    my $statement = join ', ', @{ $hash{$group} };
    print "$statement\n";
}