my %comp;
$comp{ $_ }{a} = 'a' for @a;
$comp{ $_ }{b} = 'b' for @b;
$comp{ $_ }{c} = 'c' for @c;
$comp{ $_ }{d} = 'd' for @d;