# Consider all blank entries to be 0.
foreach (@f) {
    $_ = 0 unless length $_;
}