my $snafu=$foo->{bar};