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