sub my_lc_warn {
  not defined wantarray and warnings::warnif("void", "my_lc used in void context");
  unless (wantarray) {
     @_>1 and warnings::warnif("my_lc called in scalar context with extra arguments (".join(",",@_).")");
     return lc shift;
  } else {
     return map lc $_,@_;
  }
}

##</code><code>##

sub my_lc {
  not defined wantarray and warnings::warnif("void", "my_lc used in void context");
  return wantarray ? map lc $_,@_ : lc shift;
}

##</code><code>##

my $lc=lc("A","B");

##</code><code>##

my $timestr=strftime(@$self);

##</code><code>##

my $timestr=POSIX::strftime(@{$self}[0..9]);

##</code><code>##

my @strftime=@{$self}[0..9];
my $timestr=POSIX::strftime(@strftime);