use strict;
use warnings;

use Data::Dumper;

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

sub foo {
    while (<DATA>) {
        print "$_";
    }
}


__DATA__
hutzel
putzel
ultimo