#! /usr/bin/local/perl

use strict;
use warnings;

my $array_ref = [1, 2, 5, 7, 4];

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

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