my @calc;
$diff;
foreach my $key (keys %max_changed) {
my $diff = $max_unchanged{$key} - $max_changed{$key};
push (@calc, $diff);
}

print @calc, "\n";