#perl
use warnings;
use strict;

my %hash = (
        foo1    => 'test',
        foo2    => 'test2',
);

for my $k (keys %hash) {
  next unless(/^foo(\d+)$/);
  # $1 in der Schleife verfügbar
}