for my $s (1..20) {
    if ($s == any(18..23) ) {
        print $s;
    }
}