Yes, use Text::CSV. I'm not exactly sure what you're trying to do but here is how you would sort them:

use strict;
use warnings;

use XXX;
use Text::CSV;

my $csv = Text::CSV->new({ binary=>1, blank_is_undef => 1 });

my @rows;
foreach my $line ( <DATA> ) {
    $csv->parse($line);
    push @rows, [$csv->fields];
}

YYY [sort { $a->[9] <=> $b->[9] } @rows];

__DATA__
"SHAUNAGHH","","","Hawaiian Properties, Ltd.","4","911","Cost Recovery
+ Systms",40,6,32,0,1,1,"01/10/2009","13:33","ADM4968A3E0FA34",0x20000
+03,1,0,"EVERYONE",6754
"SHAUNAGHH","","","","","","Cost Recovery Systms",40,10,32,0,1,1,"01/1
+0/2009","13:33","ADM4968A3E0FA34",0x2000004,1,0,"EVERYONE",6754
[download]