t2.pl

   1 #!/usr/bin/perl -w
   2
   3 my (%trees) = ('samba' => "",
   4                'samba_2_2' => "SAMBA_2_2",
   5                'rsync' => "");
   6
   7 printf("%s\n", $trees{'samba_2_2'});
   8