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