sub hostname{
    print $fd $_;
    while (<$fh>){
        if ($_ =~ /^hostname /){
            hostname;
        }else{
#           print $_;
            $tot2++;
        }  
    }
    $tot++;
}

while(<$fh>){
    hostname if ($_ =~ /^hostname /);
}