Select Code to Download

#!/usr/bin/perl

...

my $y = zeroes(5); $y .= $lookup->{$x}; print "$y \n";

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

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

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

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