Select Code to Download

use strict;
use warnings;
...
        }
    }
}

   while ( my($key, $value) = each %hash ) {
        print "$key = $value\n";
...
            print "\t$key\n";
        }
    }