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

my %hash; # To open a dbmfile and associate with hash 
dbmopen(%hash, "nagalenoj", '0666') || die "Can't open database file!"; 

$hash{'one'}="1"; 
$hash{'two'}="2"; 
$hash{'three'}="3"; 

#Retrieving values 
print $hash{'three'};

dbmclose %hash;