tie @lines, 'Tie::File', $hostsfile 
    or die "Couldn't tie file $hostsfile; $!";