use strict;
use warnings;
use Data::Dumper;

my $user = [ 'foo','bar' ];
push( @$user,'baz');
print Dumper $user;