Re: How do I read the files in @ARGV one by one

[merlyn]

@ARGV = $_, push @data, $_, <> for @{[@ARGV]};

Hmm. There was some other clever trick to dup a list too, but I can't recall now.

-- Randal L. Schwartz, Perl hacker

---

update: Yeah, it's

@ARGV = $_, push @data, $_, <> for map $_, @ARGV;