Select Code to Download

#!/usr/bin/perl
use strict;
...
                print "\t$key: $hash->{$set}->{$key}\n";
        }
}

AAA:
        KEY1: VALUE1
...
        KEY1: VALUEA
        KEY2: VALUEB
        KEY3: VALUEC