Select Code to Download

#!/usr/bin/perl -w

...
      treeprint( $root->{right} );
   }
}

#!/usr/bin/perl -w

...
      printf( "%4d %s\n", count, word );
   }
}

Benchmark: timing 50000 iterations of inline, perl...
   inline: 13 wallclock secs (12.42 usr +  0.00 sys = 12.42 CPU) @ 
      4025.76/s (n=50000)
   perl: 12 wallclock secs (12.27 usr +  0.00 sys = 12.27 CPU) @ 
      4074.98/s (n=50000)