use utf8; use Encode; my $out = decode('UTF-8', &refPrint(\%rows));