my ($foo, $bar, $bam);

# or

my ($foo, $bar, $bam) = qw/ red green blue /;

##</code><code>##

var1 = blah
var2 = 23

##</code><code>##

use Config::Tiny;

# Open the config
my $config = Config::Tiny->read( 'config.ini' );
my $config_hash = $Config->{_};

print "Var 1: ", $config_hash->{var1};

# You can also change and save the config again
$config_hash->{var2} = 42;

$config->write( 'config.ini' );