my @word = map{ $count{$_} || 0 } qw($word);
my @count_word = map{ $count{$_} || 0 } qw($count{$word});

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