foreach (@array) {
    /^BS(\d)/;
    my $num = $1;
    .
    .
}