my $date = '20130409190203';
my @h = qw(Jahr Monat Tag Stunde Minute Sekunde);

my %hunt = ();
@hunt{@h} = unpack('A4A2A2A2A2A2', $date);

print Dumper \%hunt;