Сортировка в Perl

[GreG]

Сообщение от TTЛ

Могу сказать одно: мы учимся в одном институте на одном потоке.

с чего, вдруг, такое умозаключение?
кстати говоря, может кому пригодиться, мне тут помогли, вроде заработало)

#!/usr/bin/perl
 
use 5.8.8; use strict; use warnings;
 
my ($key);
 
my %rost = (
    'Ivanov' => 176,
    'Petrov' => 165,
    'Sidorov' => 190,
    'Razuvaev' => 186,
    'Lebedev' => 174,
    'Moroz' => 168,
    'Vase4kin' => 182,
    'Yudin' => 180
);
 
foreach $key ( sort { $rost{$b} <=> $rost{$a} } keys %rost ) {
    print "$key $rost{$key}\n";
}

sleep 20;
 
exit 0;

Сообщение от TTЛ

для себя сделал заключение: Perl - никчемный язык.

у меня одногруппник так чуть ли не сразу сказал) и кстати тоже пришел к этому выводу, когда задание взялся делать)