my(@data) = ([3], [8], [5]);
foreach $_ (@data) {
    my $sum += $$_[0];
}
print "Total: $sum\n";