struct archive_e      => {
    name           => '$',
    criteria       => '$',
    regex          => '@',
    file_owner     => '$',
    file_group     => '$',
    vsn            => '$'
};

##</code><code>##

           $newp = archive_e->new();
           $newp->criteria($pdirective);
           $newp->name($pname);
           $newp->regex(\@regexes);
           $newp->file_owner($pfowner);
           $newp->file_group($pfgroup);
           $newp->vsn($fqvsn);
           print Dumper $newp;
           push(@ap, $newp);<-------Where it goes south?
           print "ap array starts here\n";
           print Dumper @ap;

##</code><code>##

$VAR1 = bless( {
                 'archive_e::regex' => [
                                         'ogg',
                                         'mp3'
                                       ],
                 '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' );
ap array starts here
$VAR1 = bless( {
                 'archive_e::regex' => [
                                         'ogg',
                                         'mp3'
                                       ],
                 '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' );

##</code><code>##

$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' );