sub getFilenames {
    my $directory = shift;
    my $suffix = shift;
    opendir(my $dh, $directory) || die;
    my @a = readdir($dh);
    @a = grep(/\Q$suffix\E$/, @a);
    close($dh);
    return @a;
}