The nodes above do a great job finding the errors. Just a very tiny thing to point out in this line

open (VECTORS, "vectors") or die print "Cannot open 'vectors' file: $!
+ \n";
[download]

The print statement after die is not really needed since this what dies does anyway.
Just a little something to save you a few keystrokes