use Modern::Perl;

my @a = 1 .. 10;
my @b = 5 .. 14;

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