Хитрая склейка массивов, не соображу

[perl6]

Приветствую. Никак не могу понять, как сделать вот такую вот хитрую склейку. Есть два массива, пример

Код:

my @imena = qw( vasya petya kirill tom sema timur ruslan):
my @nomera = qw( 1 2 3 4 5):

Так вот, сколько не мучался с хешами, вложенными циклами, как организовать следующее:

vasya:1
petya:2
kirill:3
tom:4
sema:5
timur:1 # здесь самое интересное, т.к. массив с номерами закончился, мы снова его начинаем сначала и так, пока не опустеет массив с именами
ruslan:2

[RXL]

Сочувствую.
Нате.

Код: (Perl)

my $pos = 0;
my %result = map { $_ => $pos % @nomera } @imena;

[perl6]

Спасибо, но не работает

Код:

#!/usr/bin/perl -w

use utf8;
use Data::Dumper;
 
my @imena = qw( vasya petya kirill tom sema timur ruslan);
my @nomera = qw( 1 2 3 4 5);

my $pos = 0;
my %result = map { $_ => $pos % @nomera } @imena;

print Dumper %result;

$VAR1 = 'ruslan';
$VAR2 = 0;
$VAR3 = 'sema';
$VAR4 = 0;
$VAR5 = 'tom';
$VAR6 = 0;
$VAR7 = 'timur';
$VAR8 = 0;
$VAR9 = 'kirill';
$VAR10 = 0;
$VAR11 = 'petya';
$VAR12 = 0;
$VAR13 = 'vasya';
$VAR14 = 0;

[RXL]

Да, корректировочка:
my $pos = 0;
my %result = map { $_ => $pos++ % @nomera } @imena;

Вместо @nomera можно использовать сделать проще:
my $numbers = 5;
my $pos = 0;
my %result = map { $_ => 1 + ($pos++ % $numbers) } @imena;

[perl6]

Спасибо. Правда, решил немного другим способом данную задачу...