Select Code to Download

use strict;
use warnings;
my @labels = ('fee', 'fi', 'fo', 'fum');
...
for my $element (@list) {
  print "$labels[3],$element->[0],$element->[4]\n";
}

use strict;
use warnings;
my @labels = ('fee', 'fi', 'fo', 'fum');
...
    print "$labels[$i],$element->[0],$element->[$i+1]\n";
  }
}

use strict;
use warnings;
my @labels = ('fee', 'fi', 'fo', 'fum');
...
    print "$label,$element->{number},$element->{$label}\n"
  }
}