my $query = new CGI;
my $action = lc ($query->param('action'));

.......

elsif ($action eq "one"){
  my ($string1, $string1 ) = @_;
  my ($string2, $string2 ) = @_;
  warn("string2 = '$string2'");