my @array = ();
my @oldarray = (1,2,3,4);
for (@oldarray) {
   push @array, "$_";
}
print @array; # 1234

for ($sth_prepare->fetchrow_array()) {
   push @array, "$_";
   last if $counter == 14;
}

for ($sth_prepare->fetchrow_array()) {
  push @array, "$_";
  last if $counter == 14;
}

  push(@array,$_);

my $sth_prepare = $dbh1->prepare("select count(*) from userlog where userid = '$userid' limit 0,14");
$sth_prepare->execute() or die $DBI::errstr;
my @array = ();
my $toll;
my $counter = 0;

print "Content-Type: text/html\n\n";
for ($sth_prepare->fetchrow_array()) {
   push @array, ["$_"];
   last if $counter == 14;
}
print @array;

my @array = (1,2,4);
while (@array) {
#...
}

for(@array){
  print $_,"\n";
}

# oder

foreach(@array){
  print $_,"\n";
}

 last if $counter == 14;

while ($sth->fetchrow_array()) {
#...
}

   push @array, "$_";