sub foo {
  my $arg = @_ ? shift : $_;
  ...
}