use strict;
use warnings;

    sub A {
        ((1 x shift) !~  m{^(11+)\1+$}) or die "argument is not prime";
        A(@_);
         };
    warn "\$DEBUG testing!";
    A(1,2,3,4,5);
    exit;