As an aside, you could reduce the amount of typing by using qq in your print:

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

I'm not sure if it's any prettier, but it is easier to type than all those commas and quotes and back-whacked quotes.