knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my @arr = ( 7, 28, -8, 0, 12, 67 );
> while ( my $val = shift @arr )
> {
>     say $val;
> }'
7
28
-8
knoppix@Microknoppix:~$