while (<DATA>) {
   my $pos = (split ' ')[1];
   print $pos,"\n";
}
__DATA__
BC001593 91 NPSL
BC001593 262 NASS
BC001593 293 NAST