#! perl -slw
use strict;

my $i;
for $i ( 0 .. 5 ) {
    print "$i";
}

my @i;
for $i[ 0 ] ( 0 .. 5 ) {
    print "@i";
}