my @liste = (E,SP,WR,F,M,C,G,L,D,KU);

my @d = ZweiausX(\@liste);

sub ZweiausX {
  my $ref = shift;
  my $X = @{$ref};
  my @data = ();
  for ($i=0;$i<$X-1;$i++) {
    for ($j=$i+1;$j<$X;$j++) {
      push(@data, ${$ref}[$i]."-".${$ref}[$j]);
    }
  }
  return @data;
}