tie my(@five), 'Tie::Array::MaxLen', 5;
push @five, 10, 20, 30, 40;
push @five, 50;
push @five, 60;  # QUACK