#!/usr/bin/perl

use warnings;
use strict;
use PDL;

my $x = sequence(5); print "$x \n";

my @pdl_keys   =     (0,    1,   2,      3,   4);
my @pdl_values =     (101, 69,  42,  10042,  99);

my $y = zeroes(5);
foreach my $i (0..@pdl_keys-1){
    my $indx = which($x == $pdl_keys[$i]);
    $y->dice($indx) .= $pdl_values[$i];
}
print "$y \n";