map { push (@status, $_)    }
    map { split(/\n/,$_)        } $raw_data;

##</code><code>##

    @status = split /\n/, $raw_data;

##</code><code>##

foreach (split /\n/, $raw_data) {
    ...
}