sub func {
   my ($aref) =@_;

   if ($aref->[1] eq 'command') {
   ...
}

func(\@ten_million);