tie (my $foo, 'Tie::Static'); tie (my $bar, 'Tie::Static');
# or this
map { tie $_, 'Tie::Static' } my ($foo, $bar, $baz, ...);