sub iterate {
    for my $item ( @_ ){
        warn 'iteration '. ($0 .. !$0), "\n";
    }
}

iterate( qw(a b c) );
iterate( 1, 2, 3, 4);
iterate( 0 );

##</code><code>##

iteration 1
iteration 2
iteration 3
iteration 4
iteration 5
iteration 6
iteration 7
iteration 8