%options = map {$_ => 1} 88, 89, 90, 91;

if( $a eq 'A' && $options{$p} ) {
    ...
}
[download]