c:\@Work\Perl\monks>perl -wMstrict -le
"use List::MoreUtils qw(part);
 ;;
 my @history = qw(Cache::SizeAwareMemoryCache(3) dhcp-options(5) BN_add_word(3) audit-packages(8));
 my $choice = 'dhcp-options(5)';
 print qq{before: (@history)};
 ;;
 @history = map @$_, part { $_ ne $choice ? 0 : 1 } @history;
 print qq{after:  (@history)};
"
before: (Cache::SizeAwareMemoryCache(3) dhcp-options(5) BN_add_word(3) audit-packages(8))
after:  (Cache::SizeAwareMemoryCache(3) BN_add_word(3) audit-packages(8) dhcp-options(5))