filling up database yml with perl