use strict; use warnings; my @Property = qw(FolderProperty1 FolderProperty2 FolderProperty3); my %O_P = ( 'FolderObject' => \@Property );