my $ref = [1,2,3];
push @$ref, 4;
print @$ref;        # prints: 1234