open(OLD,"cleanRefs.txt");

@lines = <OLD>;
close(OLD);

print "1\n";
print @lines;
foreach $lines (@lines) 

{
  print "2\n";
  print $lines;
}

exit 0;