use Data::Dumper;

# erhält Daten des Hashes
my $hash;             
{
# Einlesemodus auf Einlesen in einem Rutsch
local $/ = undef;     
open (my $fh, '<', 'meinedaten.dat') 
  or die "Datei konnte nicht geöffnet werden: $!";
# Zeichenkette einlesen
$hash = <$fh>;  
# Variablenbezeichnung des gedumpten Hashstrings auf $hash setzen
$hash =~ s|VAR1|hash|;
# Datei schließen      
close($fh) 
  or die "Datei konnte nicht geschlossen werden: $!";
}
  
# Code in $hash ausführen
eval("$hash") 
  or die 'Hash $hash konnte nicht ausgewertet werden';

# alle Schlüssel des Hashes als HTML-Schnippsel ausgeben
for my $key (keys %$hash) {
    print <<HTML;
<p>$key: <i>$hash->{$key}</i></p>
HTML
}

$VAR1 = { 
   'Artikel-ID' => '0815',
   'Artikelbezeichnung' => 'Blahboo',
   'Artikelpreis' => '1024'
};