#!/usr/bin/perl -w
use strict;

my %allusers = (
        'users' => {
                'user' => 'Test Account',
                '*Crudles' => 'Hello World',
                'Crud' => 'Another Test',
                '*test' => 'Crud User'
        }
);

foreach my $key ( %{ $allusers{ users } } )
{
    delete $allusers{ users }{ $key } if '*' eq substr $key, 0, 1;
}


__END__
F:\dev>perl -c ovidcoredump.pl
ovidcoredump.pl syntax OK

F:\dev>perl ovidcoredump.pl
Use of uninitialized value in substr at ovidcoredump.pl line 14.
Attempt to free unreferenced scalar at ovidcoredump.pl line 13.
Use of uninitialized value in substr at ovidcoredump.pl line 14.
Attempt to free unreferenced scalar at ovidcoredump.pl line 13.

F:\dev>perl -v

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 628 provided by ActiveState Tool Corp. http://www.ActiveState.com
Built 15:41:05 Jul  4 2001


Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.


F:\dev>f:\indigoperl\bin\perl ovidcoredump.pl
Use of uninitialized value in substr at ovidcoredump.pl line 15.
Attempt to free unreferenced scalar at ovidcoredump.pl line 13.
Use of uninitialized value in substr at ovidcoredump.pl line 15.
Attempt to free unreferenced scalar at ovidcoredump.pl line 13.


F:\dev>f:\indigoperl\bin\perl -v

This is perl, v5.6.0 built for MSWin32-x86-multi-thread

Copyright 1987-2000, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.


F:\dev>

bash-2.05$ perl ovid.pl
bash-2.05$ perl -c ovid.pl
ovid.pl syntax OK
bash-2.05$ perl -v

This is perl, version 5.005_03 built for i386-freebsd

Copyright 1987-1999, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

bash-2.05$