Select Code to Download

@foo = (0,1);
$hash{00} = "data";
...
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";

$hash{00} is data
$hash{$foo[0] . "0"} is 
$hash{$foo[1] . "0"} is moredata
$hash{10} is moredata