Or even:

my @fields = qw(A B C D E F);
my %indices;
@indices{@fields} = 0 .. $#fields;
. . .
my @chosen = qw(A B D F);
. . .
@rec{@chosen} = (split/\t/)(@indices{@chosen});
[download]

  p