undef @hsh{@ary}; chomp @hsh{@ary}; chop @hsh{@ary}; map $_, @hsh{@ary}; 1 foreach @hsh{@ary};