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