print "word: [$_]\n" foreach qw( 'Account umber' 'Fraud Transfer' 'Date' 'Balance' 'No. of Disputes After Transfer' 'Disputed Dollars After Transfer') __END__ word: ['Account] word: [umber'] word: ['Fraud] word: [Transfer'] word: ['Date'] word: ['Balance'] word: ['No.] word: [of] word: [Disputes] word: [After] word: [Transfer'] word: ['Disputed] word: [Dollars] word: [After] word: [Transfer']