Select Code to Download

use Tie::Array::Unique;

...
my @b = (3,4,5,6,7,8,9,10);
tie my(@merged), 'Tie::Array::Unique', (@a,@b);
print join(',', @merged);