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

foreach ($raw_data) {

##</code><code>##

while (<DATA>) {
  my @new_data = split /ms/;
  # do stuff
}