my %hash;
for (my $row = 0; $row < @array; $row++) {

    $hash{"$array[$row][6]"} = "$array[$row][7]";

}