#!/bin/env perl

use strict;
use warnings;

my ($a, $b, $c);
$a = $b = $c = 0;
foreach my $v (qw/a b c/) {
    func($v);
}

sub func {
    my $v = shift;
    print "v = $v\n";
    eval '$'.$v.' = $'.$v.' * 2';
}

print "$a $b $c\n";