#!/usr/bin/perl

use strict;
use warnings;

$| = 1;
$\ = "\n";


my $foo = { a => [1,2,3,4,5] };

push @{$foo->{a}}, 6,7,8,9;
print @{$foo->{a}}