$var1 ...
$var2...
$var3 ...

sub get_vars { 
     local (*variables) = *main::;
    
     #-- Some checking on certain variables
}