#!/usr/bin/perl
use warnings;

@pizzas=qw
(
	pizza_margherita
	$cheese
	$tomato
	$mass
	$USERNAME
);
#And 50+ variables...

$cheese="cabrales";
$tomato="orlando";
$mass="secret";
$USERNAME=$ENV{USERNAME}; #Loads Windows environment variable USERNAME value

$n = @pizzas; #loads total of array elements

open (my $variables, "> C:/temp/variables.txt") or die "Bad Luck...";

for (my $i = 0; $i <= $n; $i++)
{
	print $variables "$pizzas[$i]=$pizzas[$i]\n";
}

#I also tried that with the same result
#foreach (@pizzas)
#{
#	print variables "$_=$_\n";
#}
close variables;

##</code><code>##

pizza_margherita=pizza_margherita
$cheese=$cheese
$tomato=$tomato
$mass=$mass
$USERNAME=$USERNAME

##</code><code>##

pizza_margherita=pizza_margherita
$cheese=cabrales
$tomato=orlando
$mass=secret
$USERNAME=windowsuser