#No longer "works"
sub ah{
  my $p = my $htmlparagraphelement = shift;
  (
     wantarray ? 
     (my @givearr = print '<',$p,'>')
     :
     (my $fizix = '</'.$p.'>')
  )
}

##</code><code>##

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