if ($tag eq 'table'){ push @save, [$tablenr,$row,$column]; $row = $column = 0; $tablenr=$count; ++$count; $in_table++; }