There are potentially ways by doing really deep trickery, but why would you bother? Just use assigned variables for each loop.

foreach my $k1 (keys %var) {
    foreach my $k2 (keys %{$var{$k1}}) {
        print('$var{$k1}{$k2}=', $var{$k1}{$k2}, "\n");
    }
}
[download]