$qry = $DB->Query("SELECT * FROM recipes WHERE type = '$type' ORDER BY rand()
limit $quantity") || die "Got error on select: $Mysql::db_errstr\n";
                                                                                
  for ($i=0; $i<$qry->numrows; $i++) {
    @row = $qry->fetchrow or warn "recipes didn't find a matching row";
    print "\@row is assigned @row\n";
    $j = 0;
    foreach my $bug (@row) {
      @athlete[$i,$j++] = $bug ;
      print "\$i\$j is assigned $i:$j\n";
      print "\@athlete[\$i,\$j] is assigned the value @athlete[$i,$j]\n";
      print "\$bug is assigned the value $bug\n";
    }
  }
}

##</code><code>##

@row is assigned 33 Small Bunch Grapes carb 15 0.4 0.1
$i$j is assigned 4:1
@athlete[$i,$j] is assigned the value 33
$bug is assigned the value 33
$i$j is assigned 4:2
@athlete[$i,$j] is assigned the value Small Bunch Grapes
$bug is assigned the value Small Bunch Grapes
$i$j is assigned 4:3
@athlete[$i,$j] is assigned the value carb 0.2
$bug is assigned the value carb
$i$j is assigned 4:4
@athlete[$i,$j] is assigned the value 15 15
$bug is assigned the value 15
$i$j is assigned 4:5
@athlete[$i,$j] is assigned the value
$bug is assigned the value 0.4
$i$j is assigned 4:6
@athlete[$i,$j] is assigned the value 0.1
$bug is assigned the value 0.1