>>715
A => map{ [ $_, ( split /,/ ), 0 ] }
B => sort{ ($a->[1] || 0) <=> ($b->[1] || 0) }
折角のシュワルツ変換なんだから、最初のmapで丁寧にAの様に値を代入すれば？
Bの様にして、（多段ソートの場合とかで）ソート条件毎に値を制御する方法もあるけど。