#!/usr/bin/perl -w
# markus westphal 19.04.2005

use strict;
my ($satz,$s2,$s3,@ar,%ass,$index);
#Textlength sortiert

$satz = "Es regnet blaue und gelbe Fische"; 

@ar = split(" ",$satz);

for($s3=0;$s3 <= $#ar; $s3++){
$ass{$ar[$s3]}=length($ar[$s3]);
}
foreach $index (sort by_value keys %ass) {

print "$index $ass{$index}\n";
}
sub by_value {$ass{$b} <=> $ass{$a};
}