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

foreach ( 0 .. $#a ) { }