Select Code to Download

use warnings;
use strict;
...
    printf "interpolate # %d => [%s,%s,%s]\n", $i, map {$_//'<undef>'}
+ $x, $y, $z;  # debug print
}