foreach my $key ( sort keys %replacements ) {
	$key = $replacements{$key};
}