sub{[&createAccount,$txtNewUName,$txtNewName,$txtNewPassword]}

##</code><code>##

sub createAccount {
  
   my @in = @_;
print Dumper(@_);
     

   my(    $Username_arr,
       $Name_arr,
       $Password_arr,
       $PassCheck_arr,
      ....
     .....
     .....
}