Select Code to Download

my @numlist = (1,2,3,4,5);
if (join (",", @numlist ) eq join (",", (1..$#numlist+1))) {
...
} else {
       print "incorrect";
}

print ( (join (",", @numlist) eq join (",", (1..$#numlist+1))) ? "corr
+ect" : "incorrect" );