my %free_days_left;
while (<$file1>) {
     chomp;
     my @fields = split /\s+/, $_;
     my $key = join "-", @fields[0..2];
     $free_days_left{$key} = $fields[5];
}