my @array_pos = qw( black blue red );

my @field1 = @field1{@array_pos};
my @field2 = @field2{@array_pos};
my @field3 = @field3{@array_pos};