Select Code to Download

use strict;
use warnings;
...
is keys(%$_), 2;
print "@{[ uinq @array ]}\n";
is keys(%$_), 2;