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

}

##</code><code>##

tst_b_xref.pl    (main)           2 (lexical)       $ sth              intro
tst_b_xref.pl    (main)           2 (lexical)       $ lines            intro
tst_b_xref.pl    (main)           7 main            $ "                used
tst_b_xref.pl    (main)           7 (lexical)       @ row              used
tst_b_xref.pl    (main)           9 (lexical)       $ lines            used
tst_b_xref.pl    (main)           9 (lexical)      @$ lines            used
tst_b_xref.pl    (main)           9 (lexical)       $ sth              used
tst_b_xref.pl    (main)           9 (lexical)       $ sth              subused
tst_b_xref.pl    (main)           9 (lexical)       @ row              intro

##</code><code>##

$ cat /tmp/xref.out
tst_b_xref.pl    (main)           2 (lexical)       $ sth              intro
tst_b_xref.pl    (main)           3 (lexical)       $ lines            intro
tst_b_xref.pl    (main)           7 main            $ "                used
tst_b_xref.pl    (main)           7 (lexical)       @ row              used
tst_b_xref.pl    (main)           9 (lexical)       $ lines            used
tst_b_xref.pl    (main)           9 (lexical)      @$ lines            used
tst_b_xref.pl    (main)           9 (lexical)       $ sth              used
tst_b_xref.pl    (main)           9 (lexical)       $ sth              subused
tst_b_xref.pl    (main)           9 (lexical)       @ row              intro