#!/usr/bin/perl 

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use autodie;
use warnings;
use GDBM_File;

my (%hash, $key, $val);
my $filename = "/home/DESKTOP/dict_final";
tie %hash, 'GDBM_File', $filename, &GDBM_READER, 0640; 

while (($key, $val) = each %hash) {
    print "$key::$val\n";
}

untie %hash;