#!/usr/bin/perl -W
use strict;
no strict 'refs';
use warnings;
use Data::Dumper;
my %hash;
$hash{1}{2} = '1/2';
$hash{1}{2}{3} = '1/2/3';
print Dumper (\%hash);
print "existiert!" if defined $hash{1}{2}{3};