my $pdl = sequence(2,4);