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