Select Code to Download

#!/usr/bin/perl

...
print "there are ".scalar (keys %{$h->{fruit}->{banana}})." banana bre
+eds\n";

print "Good luck with your homework\n";

C:\>perl test.pl
Hello, World...
...
there are 3 apple breeds
there are 2 banana breeds
Good luck with your homework