That doesn't make any sense to me, but maybe this (not very efficient) script will give you some ideas:

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Convert::AnyBase;

my $a = 0;
my $base = Convert::AnyBase->new(set => '02468acez');
say $base->encode($a++) while "there's some disk space";
[download]