> my @stack; > unshift @stack, $a; > unshift @stack, $b; > $a = shift @stack; > $b = shift @stack; Cool... a slight variant: push @ARGV,$y,$x; ($y,$x)=(pop,pop); -- Charles DeRykus