Select Code to Download

my @l = (1, 2, 3, 0, 5, 6);
while (my $x = shift @l) { 
...
## OUTPUT ##

1 2 3

my @l = (1, 2, 3, 0, 5, 6);
while (@l) { 
  my $x = shift @l;
  print "$x ";
}