print " $_ : ".$data->{$_}->{$_}."\n";

##</code><code>##

for (qw(fine)) {
    for (qw(mess)) {
        print "$_ $_\n";
    }
}
__END__
mess mess