Select Code to Download

>perl -Mstrict -w -M-warnings=uninitialized -E 'my @a=(1..5,undef,6..1
+0); say "@a" while defined shift @a'
2 3 4 5  6 7 8 9 10
...
 6 7 8 9 10

>