use constant U => ....;
    sub init   {@A = (0) x U}
    sub insert {$A [shift] = 1}
    sub delete {$A [shift] = 0}
    sub query  {$A [shift]}
    sub clear  {@A = (0) x U}