while (my $text = <$FILE>) {
    chomp $text;
    my @cums = (0);
    # ...
}