Help for this page
push @{$x[5]}, $value;
$value= pop @{$x[5]};
$value= shift @{$x[5]};
#access one value in row 5 $n= $x[5][4]; ... foreach $n ( @$row ) { }