my %computers;
open FILE, '<', $namefile or die "Could not open $namefile : $!";
while (<FILE>){
  chomp;
  s/^\s+|\s+$//g; # trim spaces
  next unless /\S/; # skip blank lines
  $computers{$_} = 1;
}
close FILE;