#!/usr/bin/perl
use strict;
use warnings;
use PDL;

my $sequence = pdl [0..20],[0..20];
print "$sequence\n";

***Outputs***
[
 [ 0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20]
 [ 0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20]
]