@arr1 = qw(alpha beta beta gamma gamma gamma);
undef %arr2;
@arr2{@arr1} = ();
@arr1 = keys(%arr2);