Select Code to Download

my @word = keys %count;
my @count_word = map{ $count{$_} || 0 } @word;

my @word = ( (sort { $count{$b} <=> $count{$a} } keys %count) [0..4] )
+;
my @count_word = map{ $count{$_} || 0 } @word;

 

#for my $word ( (sort { $count{$b} <=> $count{$a} }  keys %count) [0..
+4] ) {
#    #print "$word $count{$word}\n";
#}

my $data = GD::Graph::Data->new([
...
    [@count_word],
]) or die GD::Graph::Data->error;

my $data = GD::Graph::Data->new([
    [@word], 
...
    [@count_word_recip], 
]) or die GD::Graph::Data->error;

my $logfile_recip = '/tmp/recipients.txt';
...
#]) or die GD::Graph::Data->error;

my $data = GD::Graph::Data->new([
...
    [@count_word_recip], 
]) or die GD::Graph::Data->error;