Select Code to Download

@list = grep { $item ne $_ } @list;

my ($index) = grep { $item eq $list[$_] } 0..$#list;
splice(@list, $index, 1) if defined $index;