#!/usr/bin/perl
use strict;
use warnings;

$az09ref=['a'..'z', 0..9];

$r->{maybe} = {map {$_,0} @{$az09ref}};