LPM: 2d array ? for perl

[Ronald Edward Petty]

how do u print a 2d array in perl.  Somehow i can only print the first
word of the first entry doing this

while(($line = <DATAFILE>))
    {
    unless ($line =~ /^#/)
        {
        chop($line);
        @fields = split(/\|/, $line);
        push(@auth, $fields[0]);
        push(@memo, $fields[1]);
        push(@datafile, @fields);
        }
    }
close(DATAFILE);


while(@auth)
{
	print "@datafile[0]";
 	splice(@auth, 0, 1);
	splice(@datafile, 0, 1);
}

I dont really know perl so :(
Ron