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";