Hilbert Curve in Perl 

• Math::PlanePath by Kevin Ryde

use Math::PlanePath::HilbertCurve;

my $path = Math::PlanePath::HilbertCurve->new;

my($x, $y) = $path->n_to_xy(123);