endlosschleife

[Spec]

Kann mir jemand vieleicht weiterhelfen und zwar mir sagen warum das hier eine endlosschleife ergibt:

  
 my @jpg = glob("*.jpg");  
 my @gif = glob("*.gif");  
 my @jpeg = glob("*.jpeg");  
  
 my @files = (@jpg, @gif, @jpeg);  
 for my $item (@files) {  
  push @files, {ID => $item};  
 }