Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...
my @b = 5 .. 14;

say grep $_ ~~ @b, @a;