Select Code to Download

sub f{
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_
+12345     
%h=@_;$h{$_}||=[]for map@$_,values%h;sort{-1+2*grep$_ eq$b,@{$h{$a}}}k
+eys%h     
}

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