my $val=0;
for (@rows) {
  if (/([\d.]+)/) {
    $val += $1;
    warn "<LI>Added $1 from $_ and set it to $val\n";
  }
}