sub init { 
   die "ERROR: \$var already set." if defined $_[0];
   $_[0] = $_[1];
}

init $var1 => 'value1';  # pretty elegant, right?
init $var2 => 'value2';
init $var3 => 'value3';