my $data_file_file_types = [
  [ $file_str, '.txt' ],
  [ 'All files', '*' ],
];

...->getOpenFile(
   -filetypes  => $data_file_file_types,
...