@web = qw(w01 w02 w03 w04 w05 w06);

@log = qw(log1 log2 log3);

for (1 .. 10) {
    push @fserv, "fserv$_";
}

for (1 .. 30) {
    push @mail, "mail$_";
}

@linux = (@web, @log);

@solaris = (@mail, @fserv);

@all = (@linux, @solaris);

1;