shift @array while($array[0] ~~ /DBIC/); pop @array while ($array[$#array] ~~ /Dancer/);