while (!eof DATA) {
    local $/="\t";
    chomp(my @set = map {(eof) ? () : scalar(<DATA>)} 1..50);
    print "Set: ", join(',', @set), "\n";
}