Your had almost reached, but I see that you have got a slight confusion between comma (,) and semicolon (;)

These are the slight changes to your code:

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

Thats it! :-)