my $OLDARGV;
while (<>) {
      push(@data, $ARGV) if $ARGV ne $OLDARGV;
      push(@data, $_);
      $OLDARGV=$ARGV;
}