foreach my $dat1 (@data1){
  foreach my $dat2 (@data2){
    my $path = "file_$dat1\_$dat2.txt";
    open (FH, "<", $path) or die "Error opening '$path': '$!'";
    .....do something......
  }
}