@numbers=(4,5,6);
@keys = qw/size atime ctime/;
map{$myHash{$_}=$numbers[$i];$i++}@keys;