integer,allocatable::x(:)
integer::e=6
x=[2,4,6,8,10]
!remove 6
x=pack(x,x/=e)
(defun rmv (elem lst)
(if (null lst) nil
(if (equal elem (car lst))
(cdr lst)
(cons (car lst) (rmv elem (cdr lst))))) )
(setf x (rmv e x ))
my %set;
my @list = ( 'a' .. 'f' );
$set{$_} = 1 for @list;
delete $set{'c'}; # delete specific key
use v5.20;
delete %set{'a','e'} # delete hash slice
my $set = Set::Scalar->new( 'a' .. 'f' );
print "Contents of set:\n";
print $set;
$set->delete('b','e');
print "\nAfter removing elements b and e:\n";
print $set;