use Modern::Perl;
use Array::Utils qw(array_diff intersect);

my @res_of_q = ( [qw(a b c)], [qw(a b d)] );

say join "\n",intersect( @{$res_of_q[0]}, @{$res_of_q[1]} );
say join ',',array_diff( @{$res_of_q[0]}, @{$res_of_q[1]} );
[download]

P.S. shitty parser... =(