# Get the value for each key
for  my $key (keys %languages )
{
    print "$key --> $languages{$key}\n";
}

# Get the keys for each value
for my $value ( values %languages )
{
    for my $key ( keys %languages )
    {
        print "$key --> $value\n"
            if $languages{$key} eq $value;
    }
}