[Madrid-pm] una de hash

[Bruno]

Hola

Sin sortear:

#!/usr/bin/perl

use strict;
use warnings;

my %counter;
my @orderby;

while (<>) {
    my ($field, undef) = split(/ /, $_, 2);
    push @orderby, $field unless $counter{$field};
    $counter{$field}++;
}

print "$_ = $counter{$_}\n" foreach @orderby;

$alu[2], Bruno