Die Abfrage auf int ($_[0]) != $_[0] sollte man vor der Schleife machen.

Ansonsten: Primzahltest (ausfuehrlicher ist die englische Version).