use utf8; use encoding 'utf8'; my $out = &refPrint(\%rows);