my @foo = qw/1 2 3 4 5 6 1 3 6 9 4 6/;
for my $i ( map {$_} @foo) {
    @foo = ( ( grep { $_ ne $i } @foo ), $i );
}
print join ", ", @foo;
print "\n"
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.