while (<>) {
  unless (/^#/) {
    print $.;
    print " ";
    print $_;
  }
}