use strict;
use warnings;
use Data::Dumper;

my $directory ={};

@{$directory->{owner1} } = qw( dir1 dir2 dir3 );
@{$directory->{owner2} } = qw( dir4 dir5 dir6 );

print Dumper $directory;