DC badge phrase hint attempt

#!/usr/bin/perl
use strict;

my $word_freq = {};
my $space_freq = {};
my $word_space = {};

#my $trans = {};
#$trans{} = '';

while (<>) {
  m/^(\s*)(.*)$/;
  my $spaces = $1;
  my $word = $2;
  my $space_length = length($1);

  #$_ = chr($space_length + 64);
  #y/A-Za-z/N-ZA-Mn-za-m/;
  print $space_length / 2;
  print " ";

  if(!exists $word_space->{$word}) {
    $word_space->{$word} = {};
  }

  if(!exists $word_space->{$word}->{$space_length}) {
    $word_space->{$word}->{$space_length} = 0;
  }

  $word_space->{$word}->{$space_length}++;

  if (exists $space_freq->{$space_length}) {
    $space_freq->{$space_length}++;
    #print "increment space count: $space_length\n";
  }
  else {
    $space_freq->{$space_length} = 1;
    #print "declare new space count: $space_length\n";
  }

  if(exists $word_freq->{$word}) {
    $word_freq->{$word}++;
  }
  else {
    $word_freq->{$word} = 1;
  }
}




for(keys %$space_freq) {
  print $_ . ": " . $space_freq->{$_} . "\n";
}
print "\n\n";

for(keys %$word_freq) {
  print $_ . ": " . $word_freq->{$_} . "\n";
}
print "\n\n";

for(keys %$word_space) {
  my $word = $_;
  print "$word:\n";
  for(keys %$word_space->{$word}) {
    my $spaces = $_;
    print "  $spaces: " . $word_space->{$word}->{$spaces} . "\n";
  }
  #for(keys %word_space{$_})
}