Select Code to Download

use PDL;
my $u = pdl [1,2,3,4];
...
{
  print $u->flat->index($i), "\n";
}