#!/usr/local/bin/perl
use strict;
use warnings;
my $array_ref = [1, 2, 5, 7, 4];

my %hash;
$hash{$array_ref} = 'ashok';

for my $as (keys %hash){
   for (@{$as}){
        print ",".$_;
   }
}