use strict; use warnings; use feature 'say';

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

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

say "$_: " . join ',', @{ $hash{ $_ } } for keys %hash;

##</code><code>##

$ perl 1185995.pl
fruit: banana,pear,apple
numbers: one,two,three,four,five