sub foo {
    my $ret  = bar($_[0]) * quux($_[1])
}