while ( bla ) {
  @achsen = ( blubb );
  $order{$erg[0]} = [ @achsen ];
}