#!/usr/bin/perl

#script 2. Search item in hash

use warnings;
use strict;
use DBM::Deep;


my $file=shift;
my $hash_en= DBM::Deep->new( "$file.db" );
print @{$hash_en->{'despite'}};