#!/usr/bin/perl
   use strict;    # Use good practices
   use warnings;

   my %globals = (barbaz => "something here");
   foo("bar", "baz");

   sub foo {
      my $name = join('', @_);     # Build varname
      print $globals{$name}, "\n"; # use it at will....
   }

##</code><code>##

   #!/usr/bin/perl
   $barbaz = "something here";
   foo("bar", "baz");

   sub foo {
      $name = join('', @_);  # Build varname
      print $$name, "\n";    # use it AT YOUR RISK!
   }