#!/usr/bin/perl -w use strict; my $row; my %hash; while ($row = ) { $hash{$row}++; } foreach my $key (sort keys %hash) { my $value = $hash{$key}; print $key; print ": $value\n"; };

TOP Contact me