#!/usr/bin/perl

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

print join (',', map { "'$_'" } f(@list)),"\n";