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