this loop grinds the server to a crawl - why plz

[bazz]

I don't understand why this snippet would grind the server to a crawl.

Having passed a number of vars from a form of checkboxes, I am trying to put them in their own hash for passing to a sub.

here's the dumper data of the form data being passed

$VAR1 = {
          '1' => '2009-10-02�2009-10-03�2009-10-04�2009-10-05',
          '2' => '2009-10-05�2009-10-06�2009-10-07�2009-10-08'
        };

here's the snippet

  foreach my $room (sort %form){

    if ($room =~/^\d+$/ ) { #if room is a number.
  
      my $dates = $form{$room};

        print qq( room=$room : date=$dates<br />  );
    }
  }

baffled.

bazz

[oesxyl]

  foreach my $room (sort keys %form){

    if ($room =~/^\d+$/ ) { #if room is a number.
  
      my $dates = $form{$room};

        print qq( room=$room : date=$dates<br />  );
    }
  }

I guess $date[$room] is a array.

best regards

[bazz]

Blimey, a stupid mistake which I hadn't made in an earlier snippet about an hour before.

Thanks oesxyl.

bazz