my $a = 1;
..
my $b = func1($a);
..
sub t{
  my ($c) = @_;
}

t(func2($b));