use Encode qw( encode_utf8 );
my $x = chr(1 << 63);
my @Unsorted = ( 'Dog', 'Cat', 'Bird', undef, $x, 'Elephant', undef, 'Lizard' );