Perl: String to Byte[]

perl -MData::Dumper -e '$a = "sdfsdfsdf  ewwretg "; print Dumper split//, $a;'
$VAR1 = 's';
$VAR2 = 'd';
$VAR3 = 'f';
$VAR4 = 's';
$VAR5 = 'd';
$VAR6 = 'f';
$VAR7 = 's';
$VAR8 = 'd';
$VAR9 = 'f';
$VAR10 = ' ';
$VAR11 = ' ';
$VAR12 = 'e';
$VAR13 = 'w';
$VAR14 = 'w';
$VAR15 = 'r';
$VAR16 = 'e';
$VAR17 = 't';
$VAR18 = 'g';
$VAR19 = ' ';

sub str2bytes {
	my $str = shift;
	
	Encode::_utf8_off($str);
	unpack "C*", $str;
}


my @bytes = str2bytes("пёрлоджава");

$ python3 -c "print(list('sdfsdfsdf  ewwretg'))"
['s', 'd', 'f', 's', 'd', 'f', 's', 'd', 'f', ' ', ' ', 'e', 'w', 'w', 'r', 'e', 't', 'g']

python3 -c "print('пёрлоджава'.encode())"
b'\xd0\xbf\xd1\x91\xd1\x80\xd0\xbb\xd0\xbe\xd0\xb4\xd0\xb6\xd0\xb0\xd0\xb2\xd0\xb0'

perl -MData::Dumper -e '$a = "sdfsdfsdf  ewwretg "; print Dumper [split//, $a];'
$VAR1 = [
          's',
          'd',
          'f',
          's',
          'd',
          'f',
          's',
          'd',
          'f',
          ' ',
          ' ',
          'e',
          'w',
          'w',
          'r',
          'e',
          't',
          'g',
          ' '
        ];