Select Code to Download

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

S:\Steve\Dev\PerlMonks\P-2017-06-12@0734-sort-undef>perl .\sort011.pl
----------------------------------------------------------------------
+---------
...
----------------------------------------------------------------------
+---------

S:\Steve\Dev\PerlMonks\P-2017-06-12@0734-sort-undef>