@combined = sort {$a->[0] <=> $b->[0]} (@listone,@listtwo);