use warnings;
use strict;

sub get_host {
    open( HOST, "<hosts.txt" );
    while (<HOST>) {
        my ($line) = $_;
        chomp($line);
        print "hostname = $line\n";
    }
}
get_host();

__END__

hostname = hostone
hostname = hosttwo