my @buffer;

sub store {
    return "Buffer is full" if @buffer >= 4;
    push @buffer, $_[0];
}

sub retrieve {
    shift @buffer;
}