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