Hi all.&nbsp; Does anyone know what I'm missing here?<br><br>#!/usr/bin/perl -w<br><br>my @arr = qw(a b c d);<br><br>foreach $def (@arr) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($def eq "b") {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $trash = shift&nbsp; # get rid of (trash) b<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>}<br><br>print "@arr\n";<br><br>"b" does not get eliminated?<br><br><br>Thanks for any help.<br><br>Richard<br><br><br><br><br> <BR><BR>Your beliefs become your thoughts.  Your thoughts become your words.  Your words become your actions.  Your actions become your habits.  Your habits become your values.  Your values become your destiny.  -- Mahatma Gandhi