use strict;
use warnings;
use Data::Dump qw/pp dd/;

#my $scale =42;
#our $scale =42;

sub var {
    eval $_[0];# or die $@; 
}

my $myscale = var('$scale') // 1;

pp $myscale;