Select Code to Download

$key = $replacements{$key};

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