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