Select Code to Download

use strict;
use warnings;
...
    $self->{buffer}[$self->{in}] = $value;
    $self->{in} = ($self->{in} + 1) % $self->{buffSize};
}

Buffer has 0 values
Buffer has 200 values
Buffer has 100 values
Buffer has 250 values