Select Code to Download

#!/usr/bin/perl -w

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

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