#!/usr/bin/perl

use strict;

$moyr="12/2014";
$,="    ";
open(IN,"<COS_SGA_xref.txt");
while(<IN>) {
     chop;
     @_ = split(/    /);
     $csga{$_[0]}=$_[1];
}
open(IN,"<cc.txt");
open(OUT,">new_cc.txt");
for($i=0;$i<9;$i++) {$_=<IN>;}
($mo,$yr)=@_ = split(/\//,$moyr);
while(<IN>) {
     chop;
     @_ = split(/    /);
     $created=pop(@_);
     ($mocr,$day,$yrcr)=@_ = split(/\//,$created);
     if($yrcr.$mocr >= $yr.$mo) {
          $cc=$_[1];
          $cc =~ y/C_//d;
          splice(@_,3,1);
          shift(@_);
          print OUT $created,@_,$csga{$cc};
          print OUT "\n";
     }
}

__END__

##</code><code>##

D:\PerlMonks>test1.pl
Global symbol "$moyr" requires explicit package name at D:\PerlMonks\test1.pl line 5.
Global symbol "%csga" requires explicit package name at D:\PerlMonks\test1.pl line 11.
Global symbol "$i" requires explicit package name at D:\PerlMonks\test1.pl line 15.
Global symbol "$i" requires explicit package name at D:\PerlMonks\test1.pl line 15.
Global symbol "$i" requires explicit package name at D:\PerlMonks\test1.pl line 15.
Global symbol "$mo" requires explicit package name at D:\PerlMonks\test1.pl line 16.
Global symbol "$yr" requires explicit package name at D:\PerlMonks\test1.pl line 16.
Global symbol "$moyr" requires explicit package name at D:\PerlMonks\test1.pl line 16.
Global symbol "$created" requires explicit package name at D:\PerlMonks\test1.pl line 20.
Global symbol "$mocr" requires explicit package name at D:\PerlMonks\test1.pl line 21.
Global symbol "$day" requires explicit package name at D:\PerlMonks\test1.pl line 21.
Global symbol "$yrcr" requires explicit package name at D:\PerlMonks\test1.pl line 21.
Global symbol "$created" requires explicit package name at D:\PerlMonks\test1.pl line 21.
Global symbol "$yrcr" requires explicit package name at D:\PerlMonks\test1.pl line 22.
Global symbol "$mocr" requires explicit package name at D:\PerlMonks\test1.pl line 22.
Global symbol "$yr" requires explicit package name at D:\PerlMonks\test1.pl line 22.
Global symbol "$mo" requires explicit package name at D:\PerlMonks\test1.pl line 22.
Global symbol "$cc" requires explicit package name at D:\PerlMonks\test1.pl line 23.
Global symbol "$cc" requires explicit package name at D:\PerlMonks\test1.pl line 24.
Global symbol "$created" requires explicit package name at D:\PerlMonks\test1.pl line 27.
Global symbol "%csga" requires explicit package name at D:\PerlMonks\test1.pl line 27.
Global symbol "$cc" requires explicit package name at D:\PerlMonks\test1.pl line 27.
Execution of D:\PerlMonks\test1.pl aborted due to compilation errors.

D:\PerlMonks>