for (my $i=0; $i<$n; $i++) {
    my $value = $pizzas[$i];
    $value = eval $value if $value=~/^\$\w+$/;
    print $variables "$pizzas[$i]=$value\n";
}