my %calhash;
my $key = "";
my $value = "";

while (<OUTFILE>) {
    chomp;
    my ($key, $value) = split(/;/, $_);
    $calhash{$key} = $value;
}

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