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

TOP Contact me