my $id = @_;

##</code><code>##

my ($id) = @_;
my $id = $_[0];
my $id = shift;

##</code><code>##

sub do_something {
...
}

##</code><code>##

$subref = \&do_something;