oops

diff --git a/marc-cleanup b/marc-cleanup
index ea22b2c..7f1a0d6 100755 (executable)
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -283,7 +283,7 @@ sub write_record {
                          $conf->{'renumber-subfield'}, '">',
                          $conf->{'renumber-from'}, "</subfield></datafield>\n");
         my @tmp = @record[0 .. $#record - 1];
-        my $last = @record[$#record];
+        my $last = $record[$#record];
         @record = (@tmp, $renumber, $last);
         $conf->{'renumber-from'}++;
     }