for my $file (glob 'C:/Users/ZB/Desktop/Text\ Files/*.txt') {
    calculate($file)
}