my $columnsum = 0; 
$columnsum += $_->{columns} for @data;
print $columnsum;