my @ary = split (/\s+/,<DATA>);