Select Code to Download

open my $fh, '<', $file or die "failed open file: $!";
my $arr = [];
...
      push @{ $arr->[$.] }, split /\./;  # i assume string end '.' 
      }
}

use strict;
use warnings;
...

Here starts the third paragraph.
This is the second line of this

$VAR1 = [
          'Here',
...
          'of',
          'it.'
        ];