# Data::Dumper saves the day again
use Data::Dumper;
print Dumper (\@name);

# De-reference it and treat it as an array
foreach my $row (@name)
{
     print join (',', @$row),"\n";
}