@erlaubteEndungen = ('.JPG','.PNG');
my $types = [['Pics',  ['.JPG','.BMP','.GIF'] ],
                 ['JPG',      '.JPG'           ],
                 ['GIF',        '.gif',        'GIFF'],
                 ['BMP',      '.BMP'           ],
                ['TIFF',      '.TIFF'           ],
                 ['PNG',      '.PNG'           ],

                 ];
$mw->getOpenFile(-filetypes=>$types);