#!/usr/bin/env perl
use warnings;
use strict;
use Tie::IxHash;

tie my %goldhash, "Tie::IxHash";
my $goldcsv = shift;
my @keyarray;
my @temparray;

open my $GOLD_FH, '<', $goldcsv or die "Can not open $goldcsv $!\n";
my $i = 0;
while (<$GOLD_FH>) {
    chomp;
    $i++;
    if ($i eq 1) { 
        @temparray = split /,/;
        my $j=0;
        for my $elem (@temparray) {
            $j++;
            next if ($j eq 1);
            push @keyarray, $elem;
        }
        next;
    }
    @temparray = split /,/;
    my $testcasename = $temparray[0];
    for my $value (1 .. $#temparray) {
        $goldhash{$testcasename}{$keyarray[$value-1]} = $temparray[$value];
    }
}
close $GOLD_FH or die "Can not close $goldcsv $!\n";

for my $testcase (keys %goldhash) {
    print "$testcase: ";
    for my $value (keys %{ $goldhash{$testcase} }) {
        print "$value = $goldhash{$testcase}{$value} ";
    }
    print "\n";
}