my @sorted = natkeysort { $_->[0] } @matrix;