hello,

here a simple sort-funktion:

my @table_sort=sort { $a <=> $b }@table ;
foreach (@table_sort) {
print "$_\n";
}