Select Code to Download

use strict;
use warnings;
...
a,b
a,c
x,y

$ perl 11132513.pl

...
          'a' => 'c',
          'x' => 'y'
        };