Select Code to Download

$ xlscat --sort=31n,1n,2n file.csv

use 5.18.2;
use warnings;
...
csv (in => [ sort { $a->[30] <=> $b->[30]
                 || $a->[0]  <=> $b->[0]
                 || $a->[1]  <=> $b->[1] } @$aoa ]);