use Data::Dumper;
print Dumper \@something;

##</code><code>##

#/usr/bin/perl -w
use strict;
use Data::Dumper;

my @twoD = (['x', 32], ['y', 45]);

#a 2D array is an array of references to array

print "Using row reference...\n";
foreach my $row_ref (@twoD)
{
   print "@$row_ref\n";
}

print "\n",'$twoD[1][1] is ',"$twoD[1][1]\n"; #prints 45

print "\nUsing Data::Dumper\n";
print Dumper \@twoD;

__END__
Using row reference...
x 32
y 45

$twoD[1][1] is 45

Using Data::Dumper
$VAR1 = [
          [
            'x',
            32
          ],
          [
            'y',
            45
          ]
        ];