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++;
}
Sorry guys, I worked too hard on this not to post it. :-)
$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot";
$nysus = $PM . $MCF;