#do{$data = $data . $_ } while (<DATA>); #gives a uninitialized value in concatenation