in reply to sorting & deleting duplicate userids
my %seen; my @sorted = sort grep !$seen{$_}++, @unsorted; [download]
sort, perlfaq4 (duplicate elements)