while ($line = <FILE1>)
    {
        @fields = split / /, $line;
        $output = pop @fields;
        foreach $field (@fields)
        {
            $output = $output . ',' . $field;
        }
        print <FILE2> qq($output\n);
    }