map { my @d = split /,/;   [ join('\0', $dow{$d[7]}, @d[8,0]), $_ ] }