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

my %hash;
$hash{join $;, @$array_ref} = 'ashok';

for my $as (keys %hash){
    print join ',', split /$;/, $as;
}