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