#!/usr/bin/perl -w

use strict;

my @array = (
    [ 1, 'chuck',  'z' ],
    [ 2, 'paul',   'b' ],
    [ 3, 'adam',   'c' ],
    [ 4, 'rob',    'p' ],
    [ 5, 'julius', 'w' ],
    [ 6, 'bryan',  't' ]
);

foreach my $i ( sort { $a->[1] cmp $b->[1] } @array ) {
    print join( " - ", @{$i} ), "\n";
}

##</code><code>##

3 - adam - c
6 - bryan - t
1 - chuck - z
5 - julius - w
2 - paul - b
4 - rob - p