#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my $serverfile = 'servers.txt';

open (my $fh, '<', $serverfile) or die "can't open file $serverfile: $!";
chomp(my @servers = <$fh>);
close $fh;

print Dumper @servers;