#!/usr/bin/perl -w
use strict;
use Tie::IxHash;

my $IxObj = tie my %hash, 'Tie::IxHash';

my @values = qw(zero one two three four five six);
@hash{@values} = (1) x @values;

my $index = $IxObj->Indices('two');
print "$index\n";      # prints: 2

my @indices = $IxObj->Indices(qw/three one five/);
print "@indices\n";    # prints: 3 1 5
__END__