until m/consolidation/ { $cust_hash->{'city'} = "city"; $cust_hash->{'cust_num'} = "cust_num"; ....etc... } $outer-hash->{$consolidation_station} = $cust_hash; #end read loop #output to csv is clearly within your capabilities...