in reply to another elegance contest

Hi,

Its my idea....

     $i=0;
     $x="klops";
     @a=qw(apfel klops klops börne joghurt klops nüß);
     @new = ();
     for ($i=0;$i<=$#a;$i++)
     {
       if (grep/$x/,$a[$i])
       {
         push (@new,$a[$i]);
         delete ($a[$i]);
       }
     }

     print @a;
     print @new;

Thanx
Franklin
Don't put off till tomorrow, what you can do today.

In Section Seekers of Perl Wisdom