use strict; 
use warnings;
use feature 'say';
use PDL;
use Test::PDL 'eq_pdl';

say $^V;
say $PDL::VERSION;

my @a = map sequence(( 5 ) x $_ ), 1 .. 8;

printf "%d ---> %s\n", 
    $_-> ndims, 
    eq_pdl( $_, $_-> range( $_-> ndcoords )) ? 'pass' : 'fail'
for @a; 

printf "%d ---> %s\n", 
    $_-> ndims, 
    $_-> range( $_-> ndcoords, 2, 't' )-> shape
for @a; 

__END__

v5.32.1
2.084
1 ---> pass
2 ---> pass
3 ---> pass
4 ---> pass
5 ---> pass
6 ---> pass
7 ---> fail
8 ---> fail
1 ---> [5 2]
2 ---> [5 5 2 2]
3 ---> [5 5 5 2 2 2]
4 ---> [5 5 5 5 2 2 1 5]
5 ---> [5 5 5 5 5 2 1 5 25 125]
6 ---> [5 5 5 5 5 5 1 5 25 125 625 3125]