use Data::Dumper;

my @list = qw/uhu1 uhu2 uhu3/;
print Dumper(\@list);
foreach (@list) { foo($_); }
print Dumper(\@list);

sub foo { $_ = undef; }