Read variables
open my $vars, '<:utf8', "$Bin/vars.txt" or die $! ;

while (<$vars>) {

chomp;

my ($key, $value) = split(/=/, $_);
     $vars{$key} = $value;
	
}

my $V1 = $vars{'V1'};
my $V2 = $vars{'V2'};
my $V3 = $vars{'V3'};

print "$V1\n";
print "$V2\n";
print "$V3\n";

close ($vars);