use Modern::Perl;
use Data::Dumper;

my %rep;

map {my @x = split; push @{ $rep{ $x[0] } }, $x[1]} grep /\S/, <DATA>;

say Dumper \%rep;

__DATA__
a b

c d

a d

c a

f g

f h

##</code><code>##

$VAR1 = {
          'c' => [
                   'd',
                   'a'
                 ],
          'a' => [
                   'b',
                   'd'
                 ],
          'f' => [
                   'g',
                   'h'
                 ]
        };