operacja na kilku plikach

[Gosik]

Witam!
Mam pliki, ktore sa nastepujacej postaci:
dane_monika_k
dane_malgorzata_r
dane_oliwia_z
itd.

Z plikow tych chcialabym wyciagnac odpowienia kolumne i je pozniej skleic,

W tej chwili zastanawiam sie, jak przeszukac pliki o danym wzorze i wyciagnac z nich kolumne.

my @imie = ('monika', 'malgorzata', 'oliwia');
my @nazwisko = ('r', 'k', 'z');

my @wiek;
foreach my $i(@imie){
  foreach my $n(@nazwisko){
        open (WYNIKI, "dane_$i_$n"); #otwieram pliki o takim wzorze

                while(<WYNIKI>)
                {       
                  chomp $_;
                        my $k=$_; 
                        my @kol = split(/ /,$k);
                        push (@wiek,$kol[4]);          
                }
         }
}
close WYNIKI;

Dokladnie mam problem w linii:

open (WYNIKI, "dane_$i_$n");

Czy moglaby prosic o wskazowki jak poprawnie powinnam to zrobic?