DB<3> 
main::(alienhuman.pl:21):               close FILE;
  DB<3> 
main::(alienhuman.pl:23):               @new_array = split /,/, $file_data;