@sorted = sort {$a->[2] <=> $b->[2]} map { s/,//g; $_ } @sorted;