#!/usr/bin/perl
use Data::Dumper;
use strict;
use warnings;
my %hashes = ( 1..4);

push @{$hashes{z}}, 1..3;

die Dumper\%hashes;
__END__
$VAR1 = {
          '1' => 2,
          '3' => 4,
          'z' => [
                   1,
                   2,
                   3
                 ]
        };