my @array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34);
my $template = join ' ', @array;
study $template;

for (@array) {
    my @matches = ($template =~ /\b$_\b/g);
    print "$_\n" if 1 == @matches;

}