sub foo{ my $var = shift; my $href = shift; my @array = $href->{pass_in} if defined $href and exists $href->{pass_in}; push @array, $var; print "contents : @array\n"; } foo(1); foo(2);