Since you have some leading spaces in your lines, I used column 8 for the sort instead of column 7. '-8n' means sort descending on column 8 numerically.

use Sort::Fields;
my @sorted = fieldsort ['-8n'], @array;
[download]

HTH,
Charles K. Clarkson
Clarkson Energy Homes, Inc.