use f1.s1;
use f1.s2;
use f1.s3;
...
# about twenty or thirty lines omitted
...
use f132.s12;

if(f1::s3($a,$b)){f12:s3(f3:s2($b)+$a)}

...