Select Code to Download

my $ref = [];
@a_list = ([[], []], [[], []], [$ref, $ref]);

sub r{
#23456789_123456789_1
my%e;grep!$e{$_}++,@_
}