
open(LIST,$ARGV[0]);

while (<LIST>) {
  @line=split(/\s+/);
  print "$line[0] $line[1] $line[2] $line[3] $line[4]\n";
}

