Select Code to Download

      1 #!/usr/bin/perl -w
      2 use strict;
...
     36
     37   close $file or die "Can't close $filename: $!\n";
     38 }

    unless(@{$listref->[$c]} and $_ != $listref->[$c][0]) {
      push @{$listref->[$c]}, $_;
    } else {
      push @{$listref->[$c]}, ' ';
    }