my %hoh;
my @labels = qw/SAN_Info Criticality_rating Commission_Date/;
while (<>) {
    my ($key, @dat) = split ',';
    $hoh{$key}{$labels[$_] ||= $dat[$_] for 0..$#labels;
}