while ( <$inputFH> )
{
    foreach my $offset ( reverse @cums[ 1 .. $#cums ] )
    }
        substr $_, $offset, 0, q{-};
    }
    print;
}