my %item;

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

foreach $val (keys %item) {
    print "$val => @{ $item{$val}}\n";
}