Your 1st input line only has 7 columns, but $dow2 corresponds to the 8th column. You get the warning message because split sets the 8th-11th columns to the undefined value. Perhaps you want:

    print "$dow2\n" if defined $dow2;
[download]