in reply to declaring variable

Catenation would work:

$pass = '5'.$pass.'5';

Or sprintf

$pass = sprintf('5%s5', $pass);
"Look, Shiny Things!" is not a better business strategy than compatibility and reuse.

In Section Seekers of Perl Wisdom