my %data;
my $device;

for (@check){

    next if ! /\d{1,2}-\d{1,2}/;

    chomp;
    s/\s+//g;

    if (/EQUIP-OME/){
        $device = $_;
        next;
    }
    push @{$data{$device}}, $_;
}

for my $device (keys %data){
    for my $interface (@{$data{$device}}){
        print "$device,$interface\n";
    }
}


##</code><code>##

EQUIP-OME815-08-2615:19:27,"ETH10G-1-13-2,ETH10G:OPT-OCH,-3.20,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"
EQUIP-OME815-08-2615:19:27,"ETH10G-1-13-2,ETH10G:OPRN-OCH,-17,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
115-EQUIP-OME515-08-2615:19:26,"OC12-1-4-7,OC12:OPRN-OCH,-79,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
115-EQUIP-OME515-08-2615:19:26,"OC12-1-4-7,OC12:OPTN-OCH,0,ADJ,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"
115-EQUIP-OME515-08-2615:19:26,"OC12-1-4-8,OC12:OPR-OCH,-14.04,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
EQUIP-OME115-08-2615:19:13,"OC192-1-1-2,OC192:OPR-OCH,-10.20,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
EQUIP-OME115-08-2615:19:13,"OC192-1-1-2,OC192:OPT-OCH,-3.50,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"
123-EQUIP-OME215-08-2615:19:25,"OC12-1-3-7,OC12:OPRN-OCH,-89,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,,"
123-EQUIP-OME215-08-2615:19:25,"OC12-1-3-7,OC12:OPTN-OCH,0,ADJ,NEND,TRMT,1-DAY,08-25,00-00,1,,,,"