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

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