Select Code to Download

my @array = (0,1,2,3,4,5);
@array = grep {$_ % 3} @array;  #replace $_%3 with whatever condition 
+applies.
print @array;

my @array = (0,1,2,3,4,5);
my $cutme = <>;
@array = @array[0..$cutme-1, $cutme+1..$#array];
print @array;