(@ary1, $num) = read_data(\@tmpary, $tmpsclr);