#!/usr/local/bin/perl
#title "One to one relationship";
use strict;
use warnings;
use diagnostics;

my %hash;
while(<DATA>){
        next unless /"(\w+)".*"(\w+)"/gs;
        $hash{$1}=$2;
        $hash{$2}=$1;
        }

use Data::Dumper;
print Data::Dumper->Dump ([\%hash]);


__DATA__
"ger" <--> "german"
"ara" <--> "arabic"
"eng" <--> "english"