Sorting a table without using the sort function

Getting started

Pseudocode

IF table contains elements 
    find the maximum  value
    determine the position of the element found 
    add the item to the top of the table sorted, in ascending order
    add the item to the end of the table sorted - in descending order 
    delete items found with splice - stopping condition for the loop 
    reset the position 
    reset the max$ with first item in the table decreased with splice 
END AS

The coding

#!/usr/bin/perl
use strict;use warnings;

my @tab = qw/9 3 7 14 8 7 25 12 1 6/;
my ($n,$max,@tri,@tri_desc);
$max = $tab[0];

print "@tab\n";
while(@tab){
        $_ > $max and $max = $_ for @tab;
        for (@tab){ $n++;last if $max == $_}
        unshift @tri,$max;
        push @tri_desc,$max;
        splice(@tab,$n-1,1);
        $n=0;
        $max = $tab[0];
}
print "ascending order:\t@tri\n";
print "descending order:\t@tri_desc\n";
__END__