#!/bin/perl -w
use strict;
use Data::Dumper;

my @foo = (0,1);
my %hash;

$hash{00} = "data";
$hash{"00"} = "the real one";
$hash{10} = "moredata";

print Dumper( %hash);

print '$hash{0} is ', $hash{0} , "\n";
print '$hash{00} is ', $hash{00} , "\n";
print '$hash{$foo[0] . "0"} is ', $hash{$foo[0] . "0"}, "\n";
print '$hash{$foo[1] . "0"} is ', $hash{$foo[1] . "0"}, "\n";
print '$hash{10} is ', $hash{10} , "\n";