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