%fs = (
     dir1 => [ 'file1','file2','file3' ],
     dir2 => [ 'file4','file5','file6' ],
   ); 

   $contents = $fs{dir1};
   $file     = $fd{dir1}[0];


##</code><code>##


   @contents = @{$fs{dir1}};