perl + трехмерный массив

ммм
хочу посторить такой массив

elem[0]{'id'} = ...
elem[0]{'name'} = ...
...
elem[3]{'name'} = ...
...

и что-то на перле у меня это не выходит :((((

[cgi-bin]# cat arratest.pl

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

print "\n";
my @a = (1, 3 ,4 ,5 ,6 ,7);

my @elem = ();
my $i = 0;
foreach my $aa (@a)
{
    $elem[$i] = ();
    $elem[$i]{'id'} = $aa;
    $elem[$i]{'name'} = $i;
    $i++;
}

[cgi-bin]#    

и еще, 
$dbh = DBI::connect(...)

постоянно ругаеться при включенном strict
как правельно объявлять глоб переменные ????