my @ring;
use constant RING_SIZE => 10;
for my $buffer_pointer (0..RING_SIZE) {
  my $next_element = ($buffer_pointer + 1) % RING_SIZE;
  $ring[$buffer_pointer] = { data =>'', next => $next_element };
}