Select Code to Download

#!/usr/bin/perl

...
print Dumper [ sort {$a->[0] <=> $b->[0]} @array ];

__END__

$VAR1 = [
          [
...
            'john'
          ]
        ];