Select Code to Download

while (defined (my $line = <STDIN> )) {
        chomp $line;
        my @currentline = split /\s+/, $line;
        $histogram{$_}++ for @currentline;
}

if( exists $histogram{$word} ) {
    print "Found $word,  $histogram{$word} times\n";
}

use Data::Dumper;

...
$VAR1 = [
          ' '
        ];