Select Code to Download

my @ph;
$ph[0]={Foo=>1, Bar=>2, Bag=>3};
$ph[1]="what Foo points to";
$ph[2]="what Bar points to";
$ph[3]="what Bag points to";
print "$ph{Foo} is $ph[1]\n";