#!/usr/bin/perl -w
@a=qw(ala ma kota tytus ma kolty a pies ma ale);
use Data::Dumper;

print Dumper(@a);
print "Sorted:\n";
print Dumper(sort @a);

print "Uniq:\n";
print Dumper(uniq(@a));
print "Uniq2:\n";
print Dumper(uniq(sort @a));


sub uniq {
        my @out=();
        my ($a,$lasta);
        foreach $a (@_) {
                push @out,$a unless (defined($lasta) && ($lasta eq $a));
                $lasta=$a;
        };
        return @out;
};