@a=(1,2,3,4);
push1(\@a,5);
print @a;

sub push1{
$ref =shift;
@a = @$ref;
$s=shift;
$len=scalar @a;
$a[$len] =$s;
return \@a;
}