my $hash = {
  "file"=>shift(@params),
  "text"=>scalar param("lite"),
  "session"=> scalar param("session")
};

##</code><code>##

my $hash = {
  "file"=>shift(@params),
  "text"=>[ param("lite") ],
  "session"=> [ param("session") ] 
};

##</code><code>##

perldoc perldata
perldoc CGI

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.