use strict;
use warnings;
use feature qw(say);
use Data::Dump;

##</code><code>##

my $moyr = "12/2014";

my ( $month, $year ) = split /\//, $moyr; 

say for ( $month, $year );

##</code><code>##

my %csga;

while (<$in>) {
    my @record = split /\t/;
    chomp @record;
    $csga{ $record[0] } = $record[1];
}

close $in;

dd \%csga;

##</code><code>##

open( my $in, "<", q(cc.txt) ) || die $!;

while (<$in>) {
    next if $. <= 8;
    # print;
}

close $in;