Select Code to Download

use strict;
use warnings;
...
@array = @array[@keep];

print qq{@array\n};

45 19 34 31 5 36 1 38 48 2 1 9 6 9 28 1 23 19 23 41
45 19 31 5 1 1 9 9 1 23 19 23 41