Select Code to Download

    my $ID = ...;
    my $query = ...;
    my $sth = $dbh -> prepare($query);
    $sth -> execute;
    my @row = $sth -> fetchrow_array;

my $i = 0;
for my $item (@{$clusters}) {
   ...
   $i++
}

for my $i (0..$#$clusters) {
   ...
}

for my $i (0..$#$clusters) {
    my $ID = $units[$i][0];
...

    ...
}

my $query = "select * from finalLevel3 where id=?";
my $sth = $dbh -> prepare($query);
...

    ...
}