print "Olah:\t", $number++,
        qq(\t$row->[2] "$row->[5]"\t"$row->[3]$row->[0]" $row->[4]\n);