diff --git a/scripts/rt-bulk-prep-pay.plx b/scripts/rt-bulk-prep-pay.plx
old mode 100644
new mode 100755
index 2794d06..959c005
--- a/scripts/rt-bulk-prep-pay.plx
+++ b/scripts/rt-bulk-prep-pay.plx
@@ -51,7 +51,7 @@ $INTERACTIVE = 0 if not defined $INTERACTIVE;
 my @ticketSpecs = TicketIDsReadyForPayment();
 
 my %payments;
-foreach my $ticketSpec (@ticketSpec) {
+foreach my $ticketSpec (@ticketSpecs) {
   my $paymentMethod = FindMostRecentPaymentMethodForTicket($ticketSpec);
   die "Cannot find payment method for ticket, $ticketSpec" unless defined $paymentMethod;
   push(@{$payments{$paymentMethod}}, $ticketSpec);