#Same as the code without parentheses.
sub ah{
  my $p = my $htmlparagraphelement = shift;
  (
     wantarray ? 
     (my @givearr = print '<',$p,'>')
     :
     (my $fizix )
   ) = '</'.$p.'>'
}