D:\tmp>perl -c tst_b_xref.pl
tst_b_xref.pl syntax OK

D:\tmp>more tst_b_xref.pl
use strict;
my $sth;
my $lines;

while ( my @row = $sth->fetchrow_array ) {      #5

    print "@row.\n";                            #7

    push @{$lines},+{status    => $row[0]};     #9

}