Like this ?

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1185995

use strict;
use warnings;

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

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

use Data::Dumper;
print Dumper \%hash;

$_ = join ',', @$_ for values %hash;

print Dumper \%hash;
[download]