my @buffer = (0) x 5;
for (0..30) {
    print "old value: ", $buffer[0], "\n";
    print "new value: $_\n";
    shift @buffer;
    push  @buffer, $_;
}