my @list = (
     a => [ 'r', 'c' ],
     r => [ 'c', 'd' ],
     c => [ 'd' ],
     e => [ 'r', 'a' ],
     f => undef,
);