BTW to clear a hash you want to '%storedProfile = ()' 

##</code><code>##

while (my $row = $sth->fetchrow_hashref) 

##</code><code>##

	%storedProfile=%{$query->fetchrow_hashref};