#!/usr/bin/perl -w
use strict;

use Data::Dumper;

my @ray=qw(bob me other);
my %hash; 
foreach (@ray) {my %tmp=("one", "$_+1", "two", "$_+2", "three", "$_+3");
        %{$hash{$_}}=%tmp}

my $ref=\%hash;
my $r2=Dumper($ref);

print $r2;

$Data::Dumper::Purity=1;
#?????????eval??