note moklevat <strike>The</strike> A trivial [cpan://PDL] solution would be: <code> use strict; use warnings; use PDL; my $first = pdl qw/1 2 3 4 5 6/; my $second = pdl qw/2 9 8 4 7 6/; my $result = $first - $second; print "$result\n"; </code> 667345 667345