Help for this page

Select Code to Download


  1. or download this
    > perl -wle "{pop@ARGV && redo}; print for @ARGV" 1 2 0 4 5
1
2
  2. or download this
    > perl -wle "{pop@ARGV,@ARGV && redo}; print for @ARGV" 1 2 0 4 5
  3. or download this
    > perl -wle "{local *_=\@ARGV; pop && redo}; print for @ARGV" 1 2 0 4 
+5