my %newhash;
@newhash{@array} = @oldhash{@array};