Just read sort. It allows you to use a subroutine to set an alternative sorting method.

sub numerical {
    $a <=> $b
}

@a = sort numerical (4,33);
print "a = @a\n";
[download]