use constant FOO  => 0;
use constant BAR  => 1;
use constant BAZ  => 2;
use constant QUUX => 452;

sub permits {
    my $self = shift;
    vec( $self->{perms}, $_, 1 ) or return for @_;
    return 1;
}


# and later

if( $user->permits( FOO, BAR, BAZ ) ) {
    # ...
}