sub dummy {
    no strict;
    no warnings;
    ${"$_[0]"} = $_[1];
}