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

##</code><code>##

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