Select Code to Download

foreach $i(0..$#{$rows})
{
...
    $rows->[$i][$j];
   }
}

while ($i<=2) 
{
...

sub get_store_data {

############################
#
...
############################

my $sth = $dbh->prepare($stmt);