sub numerical {
	$a <=> $b
}

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