[src]
@a1 = (1,2,3);
@a2 = (4,2,5);

# intersect -> @c
foreach $a (@a2) { push @c,$a if grep {$a eq $_} @a1; }
#บรรทัดบนหมายความว่า ในแต่ละ element ของ a2 ให้ทำการ push ลงใน c ถ้าค่าของ element ตัวนั้นเหมือนเท่ากับ element ใน a1

print "Intersect: ",@c,"n";

# union -> @d
foreach $a (@a2) { push @d,$a unless grep {$a eq $_} @a1; }

foreach $x (@d) {
push @a1,$x;
}

print "Union: ",@a1,"n";

[/src]

Output:
[src]
Intersect: 2
Union: 12345
[/src]