my $file_in_en=shift;
my $hash_en=to_hash($file_in_en);
print "@{$hash_en{'despite'}}";

##</code><code>##

17
 18
 18
 18
 18
 18
 18
 18
 18
 18
 18
 18

##</code><code>##

18

##</code><code>##

my $file_in_en=shift;
my %hash_en=to_hash($file_in_en);
print "@{$hash_en{'despite'}}";

sub to_hash {
my %hash;
my $file = shift;
open(FILE, "<$file");
foreach $l (<FILE>) {
    my ($ngram,$line) = split /\t/, $l;
    push(@{ $hash{$ngram} }, $line);
    }
close FILE;
return %hash;
}