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

my ($href1, $href2) = gen_hrefs();

sub gen_hrefs {
    my %h1 = (one => 1, two => 2, three => 3);
    my %h2 = map {$_ => ord($_) } 'a' .. 'z';
    return (\%h1, \%h2);
}