#!/usr/bin/perl

# uso de arreglos asociativos
while(<>)
{
    if( /.*host=([^ ]+).*/ ) {
        $freq_tab{$1} = $freq_tab{$1} + 1;
    }
}

open(OUT, "| sort -rn");
# select redirige la salida estandar
select(OUT);
foreach $key (keys %freq_tab) {
   print "$freq_tab{$key}	$key\n";
}
close(OUT);