Select Code to Download

#!/usr/bin/perl
use strict;
...
a c d
d e b

$VAR1 = {
          'a' => 'c',
          'b' => 'c',
          'd' => 'e'
        };