use Path::Tiny qw/ path /;
path( 'first')->spew(  "$$var$transf" );
do 'first';
path( 'second')->spew(  $$var.$transf );
do 'second';
path( 'third')->spew( '$$var'.$transf );
do 'third';