my %saw;
grep !$saw{( split/;/,$_)[2]}++ , @in;
my @out = keys %saw;
> >
> > Struppi.
>
> also von innen nach aussen: splittet @in in der schleife ! .. ++ und füllt %saw name durch grep mit dem element 2 von $\_ !? ähm oder so ...
Ehrlich gesagt ist grap und map mir teilweise ebenfalls ein bisschen suspekt ;-)
> keys ermittelt alle namen von hash, sortiert also doppelte gleich aus ? was steht in wert von hash ? nix ?
In %saw sollte die Anzahl der jeweiligen Werte stehen (mit Dumper \%saw kannst du es kontrollieren - use Data::Dumper nicht vergessen)
Struppi.
--
[Javascript ist toll](http://javascript.jstruebig.de/) (Perl auch!)