##
$value= pop @{$x[5]};
####
$value= shift @{$x[5]};
####
#access one value in row 5
$n= $x[5][4];
#access all values in row 5
foreach $n ( @{$x[5]} ) {
}
#access all values in @x
foreach $row ( @x ) {
foreach $n ( @$row ) {
}