my @array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34);

say for "@array-@array" =~ /\b(\d+)\b(?=.*-)(?!.+\b\1\b.+\b\1\b)/g;
[download]