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