#/usr/bin/perl

use strict;
use warnings 'all';
use Data::Dumper;

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

push @{$foo->{a}}, 6,7,8,9;
@{$foo->{b}} = [0,1,2,3,4];

print Dumper $foo