unshift ( @First, 1); unshift ( @First, 2); unshift ( @First, 3); $Result = shift(@First); print "$Result"; $Result = shift(@First); print "$Result"; $Result = shift(@First); print "$Result\n"; ==> 3 2 1