for (my $i = 1 ;$i <=8; $i++)

{
open (MYFILE,"server$i");
while (<MYFILE>)
{
        chomp;
        my @values = split " ",$_;
        push @{ "table$i"},\@values;
        

}
}