Select Code to Download

sub lcs_arrays
{
...
    my ($beg, $end) = @{$matches[0]};
    return [  @{$a1}[ $beg..$end ]  ];
}

sub lcs_arrays
{
...

    return [  @{$a1}[ $beg..$end ]  ];
}