perl 5.8.8 doesn't have hv_stores function