Select Code to Download

#!/usr/bin/env perl -l

...
    my %h = map { $_ => undef } @{+shift};
    return [ (keys %h)[0, 1] ];
}

$ pm_1172223_rand_array_concat.pl
1
...
AX1PB8XC2 AX3PB6XC8
5
$

$ pm_1172223_rand_array_concat.pl
1
...
AX3PB6XC1 AX2PB8XC2
5
$