#!/usr/bin/perl -w
use strict;

my @ids = qw(12 34 56 34 89 12 35);

my %seen=();
my @unique = grep{!$seen{$_}++}@ids;

print join(",",@unique),"\n"; #prints: 12,34,56,89,35