my @sorted = sort {$a->[1] cmp $b->[1]} @$sheet;