my $data = <<STR;
BC001593 91 NPSL
BC001593 262 NASS
BC001593 293 NAST
STR
my @nums = map { (split)[1] } split /\n/, $data;
print join(', ', @nums), $/;

__output__

91, 262, 293