1   $String="Č芚Žž";
2   $Test2[0]->{Col1}="Č芚Žž";
...
3   $SheetOut->write(2,0,$String);
4   $SheetOut->write(3,0,$Test2[0]->{Col1});