[Edinburgh-pm] Perl: run-time error

[asmith9983 at gmail.com]

Hi folks

I put together a small Perl script to check for missing sequence numbers in 
file.  The program and the input test data are attached.  I get a run-time 
error, but after many hours have failed to track my error.  Any clues would be 
appreciated.

-- 
Andrew
-------------- next part --------------
A non-text attachment was scrubbed...
Name: seqcheck2.pl
Type: text/x-perl
Size: 711 bytes
Desc: 
Url : http://mail.pm.org/pipermail/edinburgh-pm/attachments/20070405/f78dbe4e/attachment.bin 
-------------- next part --------------
 2
 3
 5
 4
 1
 6
 7
 9
 10
 8
 11
 13
 12
 15
 14
 16
 18
 17
 19
 20
 23
 24
 25
 26
 28
 27
 29
 30
 31
 35
 37
 42
 47
 48
 50
 51
 49
 53
 56
 57
 44
 58
 54
 61
 52
 63
 64
 46
 65
 66
 67
 62
 68
 72
 70
 75
 55
 76
 69
 77
 81
 78
 80
 73
 82
 83
 74
 87
 71
 86
 79
 88
 727
 409
 1406
 422
 803
 1135
 980
 1268
 420
 511
 768
 938
 514
 487
 761
 379
 797
 692
 549
 1341
 1298
 994
 1053
 1157
 540
 1086
 443
 1207
 460
 515
 331
 565
 581
 586
 635
 437
 657
 690
 485
 699
 479
 737
 573
 793
 818
 836
 857
 865
 874
 877
 885
 891
 894
 925
 940
 738
 1005
 1012
 804
 786
 807
 1068
 1069
 1076
 896
 1163
 958
 989
 1247
 1030
 1283
 1047
 1326
 1122
 1348
 1126
 1379
 1412
 1210
 456
 504
 1258
 1314
 1176
 597
 1360
 746
 1409
 728
 718
 815
 758
 810
 824
 863
 904
 819
 88
 85
 89
 84
 90
 91
 94
 102
 99
 98
 105
 106
 104
 100
 108
 112
 113
 111
 937
 584
 901
 939
 908
 353
 889
 700
 850
 33
 992
 93
 1378
 951
 1164
 1096
 32
 1169
 1170
 101
 329
 1133
 1340
 154
 162
 198
 1313
 518
 59
 279
 1337
 95
 348
 143
 274
 395
 355
 333
 97
 268
 461
 264
 587
 558
 1137
 580
 385
 705
 1333
 34
 996
 1124
 935
 111
 107
 114
 117
 116
 115
 118
 123
 119
 121
 122
 124
 120
 127
 126
 130
 128
 131
 134
 129
 136
 133
 132
 135
 139
 144
 146
 142
 147
 145
 148
 140
 141
 152
 156
 157
 155
 160
 161
 163
 164
 167
 167
 168
 171
 165
 170
 169
 166
 177
 178
 179
 180
 183
 182
 185
 194
 206
 191
 211
 195
 193
 186
 196
 189
 205
 214
 213
 203
 218
 209
 181
 192
 220
 212
 184
 202
 216
 199
 188
 207
 219
 221
 222
 223
 224
 228
 227
 231
 233
 229
 230
 232
 236
 237
 234
 239
 238
 235
 241
 242
 240
 21
 243
 244
 246
 247
 22
 250
 249
 254
 251
 253
 258
 259
 260
 270
 265
 272
 273
 269
 275
 277
 278
 266
 280
 281
 283
 284
 285
 286
 288
 38
 45
 292
 293
 294
 294
 298
 290
 295
 296
 300
 291
 40
 303
 297
 302
 304
 306
 92
 310
 301
 311
 309
 315
 314
 318
 96
 319
 60
 316
 321
 322
 308
 324
 330
 109
 335
 327
 325
 334
 332
 337
 338
 340
 342
 345
 339
 346
 343
 103
 349
 350
 352
 138
 351
 360
 362
 361
 365
 363
 367
 368
 369
 370
 373
 371
 372
 149
 376
 376
 374
 150
 380
 137
 383
 384
 378
 173
 375
 382
 174
 388
 396
 393
 389
 397
 401
 387
 187
 403
 406
 407
 405
 408
 175
 412
 414
 190
 176
 417
 410
 416
 418
 419
 415
 1072
 426
 423
 425
 427
 428
 430
 210
 429
 431
 200
 432
 435
 440
 441
 225
 445
 446
 444
 448
 447
 197
 449
 450
 451
 215
 453
 454
 201
 217
 455
 208
 452
 458
 463
 464
 459
 466
 468
 476
 470
 471
 483
 478
 469
 480
 473
 226
 481
 477
 488
 491
 490
 245
 493
 484
 495
 489
 489
 498
 501
 503
 492
 505
 506
 261
 507
 508
 510
 984
 271
 517
 519
 522
 523
 305
 525
 529
 530
 532
 521
 538
 527
 541
 535
 542
 545
 543
 533
 550
 546
 341
 552
 551
 299
 556
 336
 557
 561
 555
 562
 548
 344
 566
 563
 559
 569
 567
 326
 357
 572
 574
 575
 323
 576
 578
 354
 320
 583
 579
 588
 381
 595
 594
 596
 589
 589
 392
 601
 602
 347
 377
 607
 358
 364
 611
 610
 609
 618
 620
 614
 390
 622
 623
 624
 625
 627
 399
 628
 613
 629
 633
 398
 632
 411
 634
 637
 413
 642
 424
 640
 641
 402
 649
 421
 651
 648
 662
 646
 663
 439
 658
 438
 661
 655
 665
 664
 668
 666
 667
 465
 670
 436
 691
 671
 442
 684
 689
 686
 683
 475
 681
 675
 680
 472
 698
 687
 706
 695
 696
 462