Select Code to Download

use strict;
use warnings;
...
   };

print Data::Dumper->Dumpxs( [ \ @sortedAoA ], [ qw{ *sortedAoA } ] );

@sortedAoA = (
               [
...
                 'bar'
               ]
             );