Help for this page

Select Code to Download

Select or download this

my @buffer = (0) x 5;
for (0..30) {
...
    shift @buffer;
    push  @buffer, $_;
}