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);