Select Code to Download

sub uniq (@) {
    my %h;
    map { $h{$_}++ == 0 ? $_ : () } @_;
}

sub bad_uniq {
    my %h;
    @h{@in} = ();
    return keys %h;
}

use List::MoreUtils 'uniq';
use Data::Dumper;
...
@from_keys = ( 
               'ARRAY(0x8153c28)'
             );