Select Code to Download

D:\tmp>perl -c tst_b_xref.pl
tst_b_xref.pl syntax OK
...
    push @{$lines},+{status    => $row[0]};     #9

}

tst_b_xref.pl    (main)           2 (lexical)       $ sth             
+ intro
tst_b_xref.pl    (main)           2 (lexical)       $ lines           
+ intro
...
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

$ cat /tmp/xref.out
tst_b_xref.pl    (main)           2 (lexical)       $ sth             
+ intro
...
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