Select Code to Download

my $id = @_;

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

sub do_something {
...
}

$subref = \&do_something;