Select Code to Download

use Data::Dumper;

...
print Dumper(\@a);
print Dumper(\@b);
print Dumper($a);

$a = [[1, 2, 3], [4, 5, 6], [2, 4, 8]];
@$a = sort { $a->[0] <=> $b->[0] } @$a;