Select Code to Download

my %field1 = map { $_ => $_; } @{$r->param('field1')};
my %field2 = map { $_ => $_; } @{$r->param('field2')};
my %field3 = map { $_ => $_; } @{$r->param('field3')};

my @array_pos = qw( black blue red );

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

my $r = {
   field1 => [qw( black blue red )],
...
0: black  blue   red
1: black         red
2:        blue