my (%key_to_value, %value_to_key);

sub add_key_value {
    my ($key, $value) = @_;
    $key_to_value{$key} = $value;
    $value_to_key{$value} = $key;
}