I think you need to use the curly brackets. try:

foreach $dir (@direc){
   foreach $fi (@{$dir->{files}}){
     print $dir.'/'.$fi->{name};
   }
}
[download]