#!/usr/bin/perl -w

my (%trees) = ('samba' => "",
               'samba_2_2' => "SAMBA_2_2",
               'rsync' => "");

printf("%s\n", $trees{'samba_2_2'});