Select Code to Download

$substr = " 1 ";
foreach $key ( @newarray ){ 
if (index($key, $substr) != -1) {print "\nExist";}
                           }

@newarray[n]="5    10    14    16    17    20    25    26    38  1  42
+    47    54";