sub arvuliselt { $a <=>$b; };
@l = (12, 25, -3, 14, -7);
@sorditud = sort arvuliselt @l;
print "@l\n";print "@sorditud\n";

sub vanus {$vanus{$a} <=> $vanus{$b};};

%vanus= (  Jaan => 25,
           Juhan => 23,
           Juku =>30,
           Liisa => 24,
           Milla => 22,
           Roosi => 17);
@ead = sort vanus keys(%vanus);
print "@ead \n";