Convert from Arabic to Babylonian numerals (only positive integers)

babylonian.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8_strict';

my $num = shift;
if ( $num < 1 || $num != int($num) ) {
    die "'$num' is not a positive integer";
}
my $base    = 60;

# I'm pretty compulsive about aligning my code carefully,
# but with this font, this is as close as I can get
my %numbers = qw(
  0 ␣
  1     𒐕 2      𒐖 3      𒐗 4      𒐘 5      𒐙 6      𒐚 7      𒐛 8      𒐜 9      𒐝 10      𒌋␣
  11    𒌋𒐕 12    𒌋𒐖 13    𒌋𒐗 14    𒌋𒐘 15    𒌋𒐙 16    𒌋𒐚 17    𒌋𒐛 18    𒌋𒐜 19    𒌋𒐝 20    𒎙␣
  21    𒎙𒐕 22    𒎙𒐖 23   𒎙𒐗 24    𒎙𒐘 25   𒎙𒐙 26    𒎙𒐚 27   𒎙𒐛 28   𒎙𒐜 29    𒎙𒐝 30    𒌍␣
  31    𒌍𒐕 32    𒌍𒐖 33   𒌍𒐗 34   𒌍𒐘 35   𒌍𒐙 36    𒌍𒐚 37   𒌍𒐛 38   𒌍𒐜 39   𒌍𒐝 40    𒐏␣
  41    𒐏𒐕 42    𒐏𒐖 43    𒐏𒐗 44    𒐏𒐘 45    𒐏𒐙 46    𒐏𒐚 47    𒐏𒐛 48   𒐏𒐜 49    𒐏𒐝 50    𒐐␣
  51    𒐐𒐕 52    𒐐𒐖 53   𒐐𒐗 54    𒐐𒐘 55   𒐐𒐙 56    𒐐𒐚 57    𒐐𒐛 58   𒐐𒐜 59   𒐐𒐝
);

my @result;
do {
    unshift @result => $num % $base;
    $num = int( $num / $base );
} while ( $num >= $base );
unshift @result => $num;
my $babylonian = join ' ' => map { $numbers{$_} } @result;
print "$babylonian\n";

__END__

=encoding utf8

=head1 NAME

babylonian.pl - print Babylonian numbers

=head1 SYNOPSIS

    $ ./babylonian.pl 123456789
    𒐝 𒌍𒐕 𒌍𒐗 𒌍𒐗 𒐝

=head1 DESCRIPTION

Given a positive integer, prints the Babylonian version of it. We cheat using
a C<␣> where a zero would be with Arabic numerals, but the Babylonian's would
have used a space.

See also: https://mathandinformatic.wordpress.com/numbers-and-number-theory/