package UserScript;
sub Process
{
   my (@List);
   $List[0] = FormData("George",70);
   $List[1] = FormData("Mike",54);
   $List[2] = FormData("Crieg",37);
}

sub FormData
{
   my($UserData) = {};
   $UserData->{name} = $_[0];
   $UserData->{Age}  = $_[1];
   # Doing some processing.
   return $UserData;
}