dbm again

[Anders Stegmann]

Hi! 
 
Can anyone tell me why this script doesn't work? 
 
 
use strict; 
use warnings; 
 
my %hash = (); 
 
my $key1 = 'nul'; 
my $en = 'en'; 
my $to = 'to'; 
my $tre = 'tre'; 
 
 
$hash{$key1} = [$en, $to, $tre]; 
 
dbmopen(my %dbm_result_hash, 'hash_database', 0666) or die cannot save
database_name to dbm\n; 
 
%dbm_result_hash = %hash; 
 
dbmclose(%dbm_result_hash); 
 
 
 
 
dbmopen(my %dbm_hash, 'hash_database', 0666); 
 
my ($key) = keys %dbm_hash; 
 
print $dbm_hash{$key}[2],\n; 
 
dbmclose(%dbm_hash); 
 
exit; 
 
 
Regards Anders.