Select Code to Download

#!/usr/bin/perl
use warnings;
...
            'four'
          ]
        ];

my @new_order = (0, 1, 2, 3, 5, 4);

...
}

print Dumper \@new_aoa;