sub make{

  my ($self,$arg) = @_;

  if (ref $arg eq 'ARRAY'){
    foreach my $t (@{$arg}){
      if (ref $t eq 'HASH'){
        _ss($t)
      };
    }
  }

}

sub _ss {
  my ($self, %arg) = @_;

  print Dumper(\%arg);
}

##</code><code>##

        $self->_ss($t)