use strict;
use warnings;

my %urls = (
    0.999 => 'www.perlmonks.org',
    0.65  => 'www.snakewranglers.org',
    0.451 => 'www.jewelmerchants.org',
    0.222 => 'www.coffeemerchants.org',
    0.12  => 'www.scriptkiddies.org',
);
my @inOrder = sort {$b <=> $a} keys %urls;
my @topThree = splice @inOrder, 0, 3;

print "$_: $urls{$_}\n" for @topThree;