Select Code to Download

Name^Code^Count
Name1^0029^1
...
Name5^0018^2
Name5^0025^1
Name5^0060^1

Name^0013^0018^0023^0025^0029^0038^0053^0060
Name1^^^^^1^1^1^
...
Name3^^1^^^^^^1
Name4^^2^^5^^^^
Name5^^2^^1^^^^1

use strict;
use warnings;
...
Name5^0018^2
Name5^0025^1
Name5^0060^1

        print "$sep" and next unless defined $map->{$k1}->{$k2};
        print "$sep" . "$map->{$k1}->{$k2}";

printf "%s%s", FS, map[name[i],value[j]]

$codes{$flds[1]}++