#!/usr/bin/perl

my $bit = 0;

$member = 'kangaroo';
$number{ $member } = $bit;      # $number{'kangaroo'} = 0;
$name  [ $bit ]    = $member;   # $name  [0]          = 'kangaroo';
$bit++;

$member = 'wombat';
$number{ $member } = $bit;      # $number{'wombat'}   = 1;
$name  [ $bit ]    = $member;   # $name  [1]          = 'wombat';
$bit++;

$member = 'opossum';
$number{ $member } = $bit;      # $number{'opossum'}  = 2;
$name  [ $bit ]    = $member;   # $name  [2]          = 'opossum';
$bit++;

print "$name[$number{opossum}]\n";