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

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

my $lookup = {     
                0 => 101,
                1 => 69,
                2 => 42,
                3 => 10042,
                4 => 99
              };

my $y = zeroes(5); 

foreach (keys %{$lookup}){ 
      set $y, ,$_ ,$lookup->{$_};
 }

print "$y \n";