Select Code to Download

#!/usr/bin/perl -w

...
my @data = ([3], [8], [5]);
my $sum += $_->[0] for @data;
print "Total: $sum\n";

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