If you have three sets of data that need to be sorted independently, I'd reccomend you start by seperating your @records into three seperate arrays, like so:

my (@records1, @records2, @records3)
foreach (@records) {
    if (/^BLOGO/) {
        push @records1, $_;
    } elsif (/\d{3}-FMT-FMT) {
        push @records2, $_;
    } else {
        push @records3, $_;
}
[download]

Now you have 3 arrays, each with one data type. Assuming each piece of data has exactly one block of digits, you can sort them with

foreach (\@records1, \@records2, \@records3) {
    my @recs = @$_;
    #--
    print join "\n", 
        sort {$a1 = $a =~ /(\d+)/;
              $b1 = $b =~ /(\d+)/;
              $a1 <=> $b1
             } @recs;
    #--    
}
[download]

If you don't know about references yet, you can just do the code in between "#--"'s once for each array, substituting the array name for @recs.

--
Ryan Koppenhaver, Aspiring Perl Hacker
"I ask for so little. Just fear me, love me, do as I say and I will be your slave."