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

##</code><code>##

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