@set = grep{defined $_}(split /\s+/, $x)[3..99];
print "@set\n";