#!/usr/bin/perl

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

# lo recorro sin ningun orden
foreach $key (keys %freq_tab) {
   print "$freq_tab{$key}	$key\n";
}