use strict;
use warnings;
my %hash = ( asd => 1 );

sub ff {
  print utf8::is_utf8($_[0]) ? 1 : 0, "\n";
}

eval {
    use utf8;
    ff(%hash); # now prints 0
};