use strict;

sub foo {
    my $foo = shift;
    print $foo;
}

my $my_var   = "lexical bar";
our $our_var = "dynamic bar";

foo($my_var);
foo($our_var);
[download]

Using references to lexical and dynamic variables is just the same, except that you have to reference and dereference the variables.

But please note that if you're not careful enough using dynamic variables (those not declared with my), strange results can appear, so if you can, use lexical variables - that's probabely what you want anyway.

Autark.