So, if you remove the whole defined() ? : checking in get_my_params(), and just assing the param() values to the array elements your code should work.

update: unless you actually get an empty string as input (as you would, when you have html textfields), in that case it's probably better to check for $input eq ''

Yes, an empty string is defined; if you want to see whether a defined string is empty or not, use ($title ne '').

If it's OK for these values to be undef (if you'll be checking defined($title) before printing them or whatever), you may want to consider:

sub get_my_params {
  return(param('ticket'),
         param('title'),
         param('client'),
         param('next_step'),
         param('o_date'),
         param('o_time')
  );
}
[download]

But what you have is good, if you never want them to be undef.

for $a(-2,12){for $b(0..7){$c=0;$_?hex substr(
ef7fa1866706caeff02289402844,2*$_+$a,2)&2**(7-$b):0
and $c+=2**(7-$_)for(0..7);print chr $c;}}
[download]

But IIRC param could return multiple values in list context (if we are talking about CGI::param). Better:

sub get_my_params {
   map scalar(param($_)), qw/ticket title client next_step o_date o_ti
+me/;
}
[download]

# Exactly equivalent drop-in replacement
sub get_my_params {
    map { defined param( $_ ) ? param( $_ ) : '' } qw(
        ticket title client next_step o_date o_time
    );
}
[download]

# Returns a hash, not an array
sub get_my_params {
    map { $_ => defined param( $_ ) ? param( $_ ) : '' } qw(
        ticket title client next_step o_date o_time
    );
}

# Use this one as so:
my %params = get_my_params();

if ( $params{ title } ne '' ) {
    # Do stuff here.
}
[download]