Select Code to Download

use strict;
use warnings;
...
$list[0] = 0;
$list[2] = 2;
@list = sort {$a <=> $b} @list;

use strict;
use warnings;
...
$list[0] = [0];
$list[2] = [2];
@list = sort {$$a[0] <=> $$b[0]} @list;