alright I have this:

finddir("$config{home}$user{site_id}");

sub finddir {
   my $root = shift;
   chomp ( $root );
   $root = $root . '/' unless ( $root =~ m|/$| );
   local *DIR;
   opendir ( DIR, $root );
   my @userfiles = sort grep !/^\.\.?\z/, readdir DIR;
   foreach $file (@userfiles) {
       next unless ( -d "$root$file" );
       print "$dir";
       finddir("$root$file");
   }
}
[download]

Now when I tell it to print, I dont want it to print "$config{home}$user{site_id}$file". I just want it to print the file, so how can I take the $config{home}$user{site_id} out.