*foo = *bar;

##</code><code>##

@arr[3,4,5,6] = qw(just another perl hacker);
@hash{'key2','key3','key4','key5'} = qw(jay dave guy);