foreach my $test(sort keys %noname_way){
     print $noname_way{$test}." - ";
  }