use Data::Dump;
dd tied(%hash)->Indices(qw/two one/);
# prints (1, 0)