At first glance, it appears the line

print "$hashrow{phone} <br>\n";

should be:

print "$hashrow->{phone} <br>\n";

Try that and see if it works