substr($line, 0, 1) eq 'A'

##</code><code>##

open DATA, ( "<piRNA_Dataset" || die "..." )