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

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