my ( @a, @b );
@a = ( 1, 2, 3 );

foreach ( 0 .. $#a ) { }

##</code><code>##

foreach ( 0 .. $#b ) { }