#!/usr/bin/perl
use strict;
use warnings;

my %files = ( 'BSC' => 1, 'SBSCSubsystem' => 1, 'MCBTSSubsystem' => 1 );
no strict 'refs';
(  open ( $$_, '>', $_ ) or die "$_: $!\n") for ( keys %files );
my ( $dest, $date );
while ( <> ) {
    ( $dest, $date ) = split /-/, ((split /\s+/)[8]);
    print "dest: $dest\n";
    ( print ${$dest} ( $_ ) ) if exists $files{$dest};
}