Select Code to Download

   #!/usr/bin/perl
   use strict;    # Use good practices
...
      my $name = join('', @_);     # Build varname
      print $globals{$name}, "\n"; # use it at will....
   }

   #!/usr/bin/perl
   $barbaz = "something here";
...
      $name = join('', @_);  # Build varname
      print $$name, "\n";    # use it AT YOUR RISK!
   }