#!/usr/bin/perl
use strict;
use Data::Table;
 
my $t = Data::Table::fromCSV("data.csv", 0);  # No header
$t->sort(8,0,0, 0,1,0, 4,0,1, 2,0,1, 1,0,0);
print $t->csv;