my @item;
my $val;

$item["A"] = (["dunno", "i think so"]);
$item["B"] = (["okay", "duh"]);

foreach $val(@item){

  #$val holds array A and B's 0 position,
   but no other parameters to get its key name instead.

}

##</code><code>##

foreach($item as $key=>$value)
    {
    
      //where $key is keyname, and $value is the value
    }