To spell out the PDL version of that (I find it prettier, but I may be biased):

use PDL;
my $x = pdl [1,2,3];
my $y = pdl [4,5,6];
print $x + $y;
# [5 7 9]
[download]