Select Code to Download

#!/perl/bin/perl.exe -w
use strict;
...
foreach (@compare) {
    print $_, " ";
    }

Contents of @array
0 1
...

Contents of @compare
2 4 5 6