use v5.12; use warnings; use utf8; use Encode qw(encode decode); my $enc = 'utf-8'; ... ... for my $i (0..($zeile-1)){ my $dectemp0 = encode($enc, $tab->[$i]->[0]); my $dectemp1 = encode($enc, $tab->[$i]->[1]); printf "%-45s %-10s", $dectemp0, $dectemp1; print "\n"; }