foreach my $value (@data)   {
    # GET THE SEQUENCE FOR EACH $VALUE
    # STARTS AND STOPS ALSO DECLARED UP HERE
    # E.G. START1 =  1; START2 =  192; START3 = 600
    #      STOP1 = 280; STOP2 =  433; STOP3 = 753
    # Want to extract all letters between 1-280, 192-433 and 600-757 where 280 and 192 overlap

# $sequence is a string with about 1000 letters

@seq = $sequence;
my $s = join ('', @seq);
@seq = split ('', $s);

 for (my $i=1; $i<=@seq; $i++)        {
        if (($i >= $start1) && ($i <= $stop1))  {
                push @current_seq, $seq[$i-1];
        }
        if ($i == $stop1)   {
                push @current_seq, "\n\n";
                      
        }
        if (($i >= $start2) && ($i <= $stop2))  {
                push @current_seq, $seq[$i-1];
        }
        if ($i == $stop2)       {
                push @current_seq, "\n\n";
        }
        if (($i >= $start3) && ($i <= $stop3))  {
                push @current_seq, $seq[$i-1];
                       }
        if ($i == $stop3)       {
                push @current_seq, "\n\n";
                     
        }

}
print "Sub-strings are:\n@current_seq\n";