$ perl -le " %F =(1, [41] ); $F{2}= $F{1}; print for %F; "
1
ARRAY(0x3f9074)
2
ARRAY(0x3f9074)