@data = restore( sort { $a->[0] <=> $b->[0] } extract(@data) );