Select Code to Download

my $aleph = test(1,2);
my $test = $_;
print "$aleph : $test";
...
    my ($a, $b) = @_;
    $_ = 'test';
}

my $aleph = test(1,2);
my $test = $_ ? $_ : '$_ is empty';
print "$aleph : $test";
...
    my ($a, $b) = (@_);
    $_ = 'test';
}