#!/usr/bin/perl

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

# genero un arreglo de lineas para el resultado
foreach $key (keys %freq_tab) {
   push(@lines, "$freq_tab{$key}	$key\n");
}

print sort @lines;