I think you meant

 swap(\$a[$i], \$a[$random]);
[download]

Which looks like it may work. But randomness always got me confused (and into furious rows with my math teacher, but that's another story).