Help for this page
#!/usr/bin/perl ... print Dumper [ sort {$a->[0] <=> $b->[0]} @array ]; __END__
$VAR1 = [ [ ... 'john' ] ];