#!/usr/bin/perl
use strict;
use warnings;

my @array = ('1 ABC blabla', '2 DEF blabla', '        blablabla', '4 JKL        blabla', '5 MNO blabla', '6 PQR blabla');
my $status = 1;
for(0..$#array) {
        if($array[$_]) {
                if($array[$_] !~ m/^\d.*/ && $status) {
                        splice @array, $_;
                        $status = 0;
                } elsif(! $status) {
                        splice @array, $_;
                }
        }
}
print $_ . "\n" for @array;