for my $k (sort @hash_array_keys)
{
    print FILEHANDLE $k, $params{$k};
}