@smrow = @{$sm_rows[$_]}; #### use Data::Alias; ... alias @smrow = @{$sm_rows[$_]};