{
	no warnings 'numeric';
	@a = sort { int($a) <=> int($b) } @a;
}