foreach & hashref

[romatr]

Люди подскажите как вот в такой ситуации:

while (my $vp = $sth->fetchrow_hashref()){

foreach my $elt (keys $$vp ){
print $$vp{'$elt'} ."\n";
}

}

правильно достучаться до элементов и ключей хэш-массива, на который ссылается $vp ???

[romatr]

Я уже сам порешил:

while (my $vp = $sth->fetchrow_hashref()){
    foreach  my $key (keys %$vp){
        print $$vp{$key};
    }
}