Select Code to Download

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

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

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