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