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