Warning: Extreme Newbie Code Ahead!

#!/usr/bin/perl -w
use strict;

my @array1;
while (<DATA>) {
    push @array1, $_
}
my @multiarray;
for my $line (@array1) {
    push @multiarray, [split /\s/, $line];
}
my @sort_ord = sort {$multiarray[$a][1] <=> $multiarray[$b][1] || $mul
+tiarray[$a][2] cmp $multiarray[$b][2]} (0..$#array1);
my @sorted_multiarray;
my $count = 0;
for my $order (@sort_ord) {
    $sorted_multiarray[$order] = $multiarray[$count];
    $count++;
}
[download]

Sorry guys, I worked too hard on this not to post it. :-)

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot";
$nysus = $PM . $MCF;