#!/usr/bin/env perl

use strict;
use warnings;
use Data::Rmap;
use feature qw(say);

my %hash;

$hash{a}[0] = "i";
$hash{a}[1] = "ii";
$hash{a}[2] = "iii";
$hash{b}[0] = "iv";
$hash{b}[1] = "v";
$hash{b}[2] = "vi";

rmap {say} %hash;

__END__