Try changing line 2 from:
if ( open my $fh, '<', "321t.txt" ) {
to:
if ( open my $fh, '<:encoding(UTF-8)', "321t.txt" ) {

According to the documentation for open(), this will open a UTF-8-encoded file containing UTF-8 characters properly. (See also perluniintro.)

Hope that helps.