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