is it possible or how to send the return value of a subroutine A as an input arguments to subroutine B ?

Sure, by placing a subroutine call inside the parens which delimit another sub-call's arguments. If

sub A {
    return $_[0] x 2 . ' (from A)';
}
sub B {
    my $arg = shift;
    return "B got $arg as argument\n";
}
[download]

then

print B(A("c")),"\n";
[download]

results in

B got cc (from A) as argument
[download]

The return value from A() ends up at the right place - inside the parens of B().

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}