while (not $done)
{
  my $name = 'Placebex';
  my %info;
  $info{concentration} = 0;
  $info{volume} = 250;

  $recipe{name} = \%info;
}

foreach my $name (keys %recipe)
{
  print "Take $recipe{$name}{volume} ml of $name,\n";
}
print "and call me in the morning.\n"