$scalar = @array; #### ($scalar) = @array; #### ($next) = @{$nextimg}; #### $scalar = $array[0]; #### $next = ${$nextimg}[0];