Select Code to Download

%hoh = map { $_, { map { $_, 1 } @{ $hol{$_}} } } keys %hol;

#!/usr/bin/perl -w

use strict;
...
        }
    }
}