I would like to get some values of Excel-Sheet per row
here is one part of the script

<snip>
my $_new_excel = new Spreadsheet::ParseExcel; my ($iR, $iC);
my $_new_excel_wb = $_new_excel->Parse($_);

$_new_excel_ws = $_new_excel_wb->{Worksheet}[Timesheet];

for ( my $iR=4; $iR<=29; $iR++) {
for ( my $iC=23; $iC<=26; $iC++) {
 $_new_excel_cell = $_new_excel_ws->{Cell}[$iR][$iC]
 $_new_excel_value = $_new_excel_cell->Value
  foreach ($_new_excel_value) {

   }
  }
 }

The script should take row 4-29 and get the values of field 23-26

dynamic that means the array should name like "ARRAY_ROW_NUMBER" and
so on. So that I know the arrays name are the row.I think that
in this script he delete the arrays every time in the second loop.
so how can made this that push every new element in the same array
for one row. But the main thing is how can i made this that the
arrayname is "dynamic"

Oh its terrible to explain such difficult things in a forgein
language but i hope you know what i mean.

Not sure if I do...

But if you want to run the code several times, and each time push

prototype--

#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;

        # or with the Spreadsheet module:

    }

#------

Please, next time you post code, make sure it at least is
syntactically valid...

I suggest you move to using real references, and a more complex data
structure. You should probably read the perldata, perlref, perllol and
perldsc documentation for more information. Something like (untested,
and with changed variable names):

my $excel = Spreadsheet::ParseExcel->new();
my $excel_wb = $excel->Parse($_);
my $excel_ws = $excel_wb->{Worksheet}[Timesheet];

for my $iR (4 .. 29)
{

        for my $iC (23 .. 26)
        {

        }

As said: Read perlref, perllol and perldsc for more information.

(snipped)

%  perl -lwe 'my $_pepsi = "yummy sugar+water"; print $_pepsi;'
yummy sugar+water