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