#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;

my %PurchPCHash = ();

my $PC = "Computer_PC3850";
my $New_PurchaseDate = "24.01.2014";
my $PrimaryUser = "Max Mueller";
my $Typ = "Asus";



 $PurchPCHash {$PC}= {"New_PurchaseDate" => "$New_PurchaseDate"};
 ....
 ....
 .... 
 

 $PurchPCHash {$PC }-> {"PrimaryUser"} = "$PrimaryUser";
 $PurchPCHash {$PC }-> {"Typ"} = "$Typ";

 print "Was hat mein HoH: \n\n",Dumper(\%PurchPCHash),"\n\n";