use utf8;
sub ff {
  die if utf8::is_utf8($_[0]);
}
ff(asd => 1);