use strict;
  use warnings; 
  #Now all I have to worry about is bad logic, not silly mistakes.

  my %things;  # hey its lexically scoped, nobody is going to step on this by accident.
  $things{wonderful}="A good Thing to behold";
  my @var=(qw(wonder ful)); # more lexicals...
  my $join_var=join("",@var);
  my $perlmonks = $things{$join_var} || die "Sorry, unknown thing '$join_var'"

  #In this sample $perlmonks is equal to 
  #"A good Thing to Behold";