#!/usr/bin/perl -w
use strict;
use DB_File;

my (%HASH, $key, $val);
my $filename = "/home/DESKTOP/dict_final";
tie %HASH, 'DB_File', $filename, O_RDWR, 0666, $DB_HASH or die "Can't open $filename: $!\n";
while (($key, $val) = each %HASH) {
    print "$key::$val\n";
}