push @array, my $val = pop @array;