in reply to Array element getting deleted

The variable $_ is getting modified inside while
try with 
while(my $line = <READ>) {

[download]
otherwise, when the file EOF is reached $_ will be set to undef inside func(). 
try dumping after the foreach loop
print Dumper \@files;
it will output
$VAR1 = [
          undef,
          undef,
          undef
        ];

[download]
UPDATE
Unless you are writing a one liner for some quick task, It is always good to declare and use a local variable for the foreach, for, while, etc. It makes the code understandable and it avoids confusion.
Vivek
-- In accordance with the prarabdha of each, the One whose function it is to ordain makes each to act. What will not happen will never happen, whatever effort one may put forth. And what will happen will not fail to happen, however much one may seek to prevent it. This is certain. The part of wisdom therefore is to stay quiet.

Replies are listed 'Best First'.
Re^2: Array element getting deleted
by eelkonio (Initiate) on Apr 17, 2009 at 14:05 UTC
    Indeed $_ is being modified. Instead of this: 
    foreach(@files) {
    print "The file is $_\n";
    func();
}
    use: 
    foreach my $q (@files) {
    print "The file is $q\n";
    func();
}
    That way the variable is assigned to $q instead of $_ and you can do with it whatever you like.
[reply]

In Section Seekers of Perl Wisdom