Select Code to Download

my %calhash;
my $key = "";
...
foreach $key (sort {$b cmp $a} keys %calhash) {
    print TESTFILE "$key;$calhash{$key}\n";
}