if($firstline==1){ ... my @dt = $header[0] =~ /(\d+)/g; ... } else { for 1..1 }