use Perl6::Junction qw(any);

...

if ( $a == any(1, 4, 23, 44) ) {
   ...
}