use strict;
use warnings;

my $row ="";
my $inarray=0;
while (<DATA>) {
    chomp;
    s/^\s+//;  # <-- New line added <----
    if (/^array|^unassigned/){
        print "$row\n" if $inarray;
        $row=$_;
        $inarray=m/^array/;
        next;
    }
    next unless $inarray;
    $row .= " $_";
}
print "$row\n" if $inarray;
__DATA__