my $r;
@{ $r }{ 1 .. 12 } = @data;