$file = "try.asc";
open(MYFILE, $file) or die qq(Cannot open $file\n);
          $line = <MYFILE>;
          while ($line ne "") {
                  @tokens = split / /, $line;
                  print qq($tokens[0]\n);
                  $line = <MYFILE>
          }