$i = 0; while ($l = ) { $a[$i++] = $l; } print sort(@a);