#!/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";