Select Code to Download

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

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

}