That breaks if you pass an argument that evaluates as false. I'd do something like this:

sub my_sub {
  my $arg = @_ ? shift : $_;
  # do stuff
}
[download]

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg