Select Code to Download

map {
    my ($type, $item, $index) = @$_;
...
       $flagValue,   # 5 
    ];
} @tagIndexes

print join "\n", map {"$_->[0] $_->[1] $_->[2]"} 
   map $_->[0], 
   sort {
...
     my $flagValue = flagValue($mode);
     [ $_, $type, int($index), $fract, $mode, $flagValue ];
   } @tagIndexes;