Select Code to Download

#!/usr/bin/env perl 
use strict;
use warnings;
...
while( my( $key, $value ) = each %hierarchy ){
    print "$key: $value\n";
}