पैटर्न मिलान (एम//) में प्रारंभिक मूल्य $elements[6] का उपयोग

मैं एक मिटोसाइट सॉफ्टवेयर चलाने की कोशिश कर रहा हूं जो पर्ल में लिखा गया है। मैं पर्ल स्क्रिप्टिंग से बहुत परिचित नहीं हूं, और मुझे निम्न त्रुटि मिलती है:

needLargeMem: trying to allocate 0 bytes (limit: 100000000000)
Use of uninitialized value $elements[6] in pattern match (m//) at MitoSAlt1.1.pl line 221, <CONFIG> line 75.

मुझे लगता है कि मुझे इस टुकड़े में कुछ बदलना है, लेकिन मुझे कोई सुराग नहीं है क्योंकि मैं इसे अच्छी तरह समझ नहीं पा रहा हूं।

sub check_paired{
  my $check_paired = 0;
  my $path = shift;
  my $line = `zcat $path|tail -n 1`;
  my @elements = split(/\t/, $line);

  $check_paired = 1 if $elements[6]=~m/\/.$/;
  return $check_paired;
}