print TESTFILE "$key;$calhash{$key}\n";