Broken is... wrong :)

Check out the main loop:

bubble(\@raw_data) while !isSorted(\@raw_data);
[download]

Yours IS better, though.
--
Mike