use Data::Alias qw( alias );
alias my $variable1 = $Mylib::variable1;  # Create an alias.
print("\$variable1 = $variable1\n");      # OK