@author = split(';', $author);
$ca = scalar(@author);
for (my $i=0; $i<$ca ; $i++)
{
	($a, $b) = split(',', $author[$i]);
	$author[$i] = "$b$a";

}
$author = join(',', @author);
print "$author\n";