thoughts on this script?

[nkuipers]

>I'd generally go something like:
>while (!$done) {
>	$done = 1;
>	for () {
>		if () {
>			$done = 0;
>			break; #reloop
>		}
>
>	}
>}
>

Unless I am mistaken, you are thinking in java...meaning, are ya SURE there is 
a break loop operator in Perl, or would last be a better choice. ;)  Thanks 
for the tip though.

anyways, i redid the script not too long after sending it out for feedback.  
it's more compact, sorts output, and is really quite fast.