use strict;

my(@Array1);

my(@Array2);

@Array1	 = (0,1,'a',3,4,5,6);

@Array2	 = (2,4,6);

@Array1	= @Array1[ ( @Array2 ) ];

printf STDOUT ("-->%s<--\n", join( ",",  @Array1 ) );