Select Code to Download

#!/usr/bin/perl
use warnings;
...

print Dumper \@copy;

./ignore_6_to_7.pl
...
          99,
          7
           ];

 Result Expected

[1, 1] by deleting all the numbers in the list starting with 6 and unt
+il it finds the first available 7 .