Select Code to Download

my %hash = (
    EX     => { sort => 30, data => 'ArraySite' },
...

    print $key, " => ", $hash{$key}->{data}, "\n";
}