Select Code to Download

#!/usr/local/bin/perl
#title "One to one relationship";
...
"ger" <--> "german"
"ara" <--> "arabic"
"eng" <--> "english"

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