perl -MO=Deparse - my @things = $q->param('t') or $q->param('things'); my @things = $q->param('t') || $q->param('things'); ^D $q->param('things') unless my(@things) = $q->param('t'); my(@things) = $q->param('t') || $q->param('things');