#!/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); $y .= $lookup->{$x}; print "$y \n";


##</code><code>##

[0 1 2 3 4] 
[0 0 0 0 0]

##</code><code>##

[0 1 2 3 4] 
[101 69 42 10042 99]

##</code><code>##

my $pdl_table = pdl([keys %$lookup], [values %$lookup]);

my $y = zeroes(5); $y .= $pdl_table->(which($pdl_table->(:,0) == $x),1); print "$y \n";