#perl
use warnings;
use strict;

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

foreach my $k (
        grep {$_ =~ /^foo(\d+)$/}
        keys %hash
) {
        # Hier hätte ich gern Zugriff auf $1 im Schleifenkopf
        # Geht das?
}