return wantarray ? @arr : $arr[-1];

##</code><code>##

  return @arr[0..$#arr];

##</code><code>##

  my ($x) = foo(...);

##</code><code>##

  sub get_headers {
    my $self = shift;
    my @headers = @_;

    my @values = @{$self->{headers}}{@headers};
    return @values;
  }

##</code><code>##

  my ($recipient, $sender) = $obj->get_headers('to', 'from');

##</code><code>##

  my ($recipient) = $obj->get_headers('to');

##</code><code>##

  return wantarray ? @values : $values[0];

##</code><code>##

  my $recipient = $obj->get_headers('to');

##</code><code>##

  my $recipient = $obj->get_headers('to', 'from');

##</code><code>##

  return @results if wantarray;
  carp("More than one value in result in scalar context")
    if @results > 1;
  return $results[0];