#!/usr/bin/perl

  use strict;
  use warnings;

  my %scores = (
      134    => { Goodness => 10 },
      4273   => { Goodness => 3 },
      36285  => { Goodness => 6 },
      9284   => { Goodness => 2 },
  );

  my $best_of = 2;  # Die besten ... {zwei}

  my @sorted_scores =  map { $_->[1] } 
                       sort { $b->[0] <=> $a->[0] }
                       map { [$scores{$_}->{Goodness}, $_ ] } keys %scores;

  print "$_\n" for @sorted_scores[0 .. $best_of - 1];