c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"use List::MoreUtils qw(all);
 ;;
 my @ra_1 = (13, 29, 545);
 my @ra_2 = (5, 7, 9);
 ;;
 my @ra_3 = grep { my $e_1 = $_;  all { $e_1 % $_ } @ra_2 } @ra_1;
 dd \@ra_3;
"
[13, 29]