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