Select Code to Download

#!/usr/local/bin/perl
use strict;
...
           }
        print "\n\n";
    }

The key value is a reference of type: HASH
The parent is parent1:
...
children of parent2-> Child1P2
children of parent2-> Child2P2