Select Code to Download

my @header_line = ('id', 'name', 'age');
my %fields;
@fields{@header_line} = (0 .. $#header_line);
#result: %fields = { id => 0, name => 1, age => 2};

#!/usr/bin/env perl
use strict;
...
   print "@perm\n";
 }
}