$VAR1 = bless( { 'archive_e::regex' => [ 'avc', 'avr', 'mks', 'mkv', 'mov', 'mp4', 'mpeg', 'mpeg1', 'mpeg2', 'mpeg4', 'mpg', 'mpg4' ], 'archive_e::file_group' => 'ANY', 'archive_e::name' => 'Movies', 'archive_e::criteria' => 'archive-e', 'archive_e::vsn' => 'root/Video', 'archive_e::file_owner' => 'ANY' }, 'archive_e' ); ap array starts here $VAR1 = bless( { 'archive_e::regex' => [ 'avc', 'avr', 'mks', 'mkv', 'mov', 'mp4', 'mpeg', 'mpeg1', 'mpeg2', 'mpeg4', 'mpg', 'mpg4' ], 'archive_e::file_group' => 'ANY', 'archive_e::name' => 'music', 'archive_e::criteria' => 'archive-e', 'archive_e::vsn' => 'root/SteveMusic', 'archive_e::file_owner' => 'ANY' }, 'archive_e' ); $VAR2 = bless( { 'archive_e::regex' => $VAR1->{'archive_e::regex'}, 'archive_e::file_group' => 'ANY', 'archive_e::name' => 'Movies', 'archive_e::criteria' => 'archive-e', 'archive_e::vsn' => 'root/Video', 'archive_e::file_owner' => 'ANY' }, 'archive_e' );