Use of uninitialized value in open at C:\scripts\newnew.pl line 72.
Use of uninitialized value in concatenation (.) or string at C:\scripts\newn
l line 72.
 cannot open '': No such file or directory at C:\scripts\newnew.pl line 72.

##</code><code>##

     use strict;
use warnings;

my $masterStr = <<EOF;
john.co.uk,Acton,Backup,Team,backup,bkup-01,External,
gim.com,Acton,Backup Team,backup,bumas1,internal,
jeff.be.com,Acton,Backup Team,backup,bumas1,internal,
scream,Acton,Backup Team,backup,bumas1,internal,
ACTDFVUA.co.uk,Acton,Backup Team,backup,imrn,internal,
EOF
my $dailyStr = <<EOF;
Server,Type,Reason,Data at Risk,Ticket,Resolution
john.com,F,No email received,YES,
gim,S,Failures,Some,8790'
elephant.com,F,	No email received,YES'
jeff.co.com,F,	No email received,YES,
scream,S,1 email received,Some,
banana,F,No email received,YES,
EOF

my %masters   = loadMasters();
my @dateParts = localtime ();
my ($day, $month, $year) = @dateParts[3 .. 5];
my $OUTFILE = ("C:\\temp\\testtest.txt");
 open OUTPUT,">$OUTFILE" or
	die " cannot cannot open '$OUTFILE': $!";
my $INFILE = ("c:\\Temp\\server.csv");
my $INFILE1  = ("C:\\temp\\failures.csv");
$year  += 1900;
$month += 1;

open my $dailyIn, '<', $INFILE1 or die " cannot open '$INFILE1': $!";
#open my $dailyIn, '<', \$dailyStr;
<$dailyIn>;    # Skip header line

while (defined (my $line = <$dailyIn>)) {
    chomp $line;
    my ($server, $type, $reason, $status, $ticket, $resolution) =
        split ',', $line;

    $_ = uc $_ for $server, $type;
    $_ ||= '-- missing --' for $status, $ticket, $resolution;

    if ($type eq "F") {
        $type = "BACKUP FAILED";
    } elsif ($type eq "S") {
        $type   = "SKIPPED FILES";
        $ticket = "DO NOT RAISE TICKET";
    }

    (my $serverKey = $server) =~ s/\..*//;

    if (!exists $masters{$serverKey}) {
        print "$server not known please update\n";
        next;
    }

    printf OUTPUT
        "%s %s %s,%s,%s,%s,%s,%s,%s,%s,%s,%s, \n",
        $day,  $month,
        $year, $masters{$serverKey}{loc},
        $masters{$serverKey}{team}, $masters{$serverKey}{owner},
        $server, $type,
        $reason, $status,
        $ticket, $resolution;
}


sub loadMasters {
    my %masters;

  open my $masterIn, '<', $INFILE or die " cannot open '$INFILE': $!";
    #open my $masterIn, '<', \$masterStr;

    while (defined (my $line = <$masterIn>)) {
        chomp $line;
        my ($machine, $loc, $team, $software, $backup, $owner) = split ',',
            $line;

        (my $machineKey = uc $machine) =~ s/\..*//;

        warn "Multiple servers match '$machineKey'!\n"
            if exists $masters{$machineKey};

        $masters{$machineKey} = {
            server   => $machine,
            loc      => $loc,
            team     => $team,
            software => $software,
            backup   => $backup,
            owner    => $owner
        };
    }

    return %masters;
}