line 6,      $author\[$i\] = "$b, $a"; 
            line 9,      $author = join(';', @author);