my $b = "" . $a->{apple};