#!/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"

##</code><code>##

$VAR1 = {
          'arabic' => 'ara',
          'ara' => 'arabic',
          'ger' => 'german',
          'german' => 'ger',
          'english' => 'eng',
          'eng' => 'english'
        };