$raw_data=<DATA>;
while (<DATA>) {

foreach ($raw_data) {