#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hash = (
        'A' => {
            'Param 1' => [
                'Value 1'
                , 'Value 2'
            ]
            , 'Param 2' => [
                'Value 1'
            ]
        }
        , 'B' => {
            'Param 1' => [
                'Value 1'
            ]
        }
        , 'C' => {
            'Param 1' => [
                'value 1'
            ]
        }
);

# Inhalt des HoHoA
print Dumper \%hash;

# Einen Wert abfragen
print $hash{'A'}->{'Param 1'}->[1] . "\n";

# Einen Wert setzen
$hash{'A'}->{'Param 1'}->[2]='Value 3';
print $hash{'A'}->{'Param 1'}->[2];