Please read Writeup Formatting Tips and update your node. It's not readable right now.

The code you pasted doesn't include the portion where $buffer_seed is initialized - maybe that's an error? You assign to $buffer but only read from $buffer_seed.

Also please always use strict; use warnings; and declare your variables with my.