Select Code to Download

use Data::Dump::Streamer;
...
my $cordinate_r = genedraw ($mid_r,$base_length,$margin);
Dump ($cordinate_r);

#! /usr/bin/perl -w
use Data::Dump::Streamer;
...
        }
        return (\@finalarr);
}

$ARRAY1 = [
            [
...
                                 10 560 469 560
EG11555 yaaJ 6529 7959 - 7 8     539 560 1010 560
                                 10 640 969 640