perl -le 'my @arr = qw/1 2 3/; print "Removing ",splice(@arr,1,1), "\n"; print join(" - ", @arr), "\n"'