use strict;

my %calhash;

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