autarch · February 2, 2014 20:36
diff --git a/gistfile1.txt b/gistfile1.txt
 use strict;
 use warnings;

 use v5.16;

 use Test::More;

 my @ints = ( 1 .. 2**20 );
 my @packed = map { pack 'N', $_ } @ints;

 is_deeply(
    \@ints,
    [ map { unpack 'N', $_ } sort @packed ],
 );
	use strict;
	use warnings;

	use v5.16;

	use Test::More;

	my @ints = ( 1 .. 2**20 );
	my @packed = map { pack 'N', $_ } @ints;

	is_deeply(
	\@ints,
	[ map { unpack 'N', $_ } sort @packed ],
	);