c:\@Work\Perl\monks\Sellerzzz>type text
line 1
second line
line the third

c:\@Work\Perl\monks\Sellerzzz>perl -e
"use warnings;
 use strict;
 ;;
 my @sig;
 ;;
 print \"Enter file name: \n\";
 my $file = <STDIN>;
 chomp $file;
 ;;
 open (INPUT, $file) || die(\"Could not find $file\");
 while (my $line = <INPUT>)
 {
      push @sig, <INPUT>, $_;
 for (my $i; ($i<=scalar @sig); $i++){
     for (my $j=($i+1); ($j<=scalar@sig); $j++){
         print \"@sig[$j]\n\";
     }
 }
 close;
 }
"
Scalar value @sig[$j] better written as $sig[$j] at -e line 1.
Enter file name:
text
Use of uninitialized value $i in numeric le (<=) at -e line 1, <INPUT> line 3.
Use of uninitialized value $i in addition (+) at -e line 1, <INPUT> line 3.
line the third

Use of uninitialized value $sig[2] in join or string at -e line 1, <INPUT> line 3.

Use of uninitialized value in join or string at -e line 1, <INPUT> line 3.

Use of uninitialized value $sig[2] in join or string at -e line 1, <INPUT> line 3.

Use of uninitialized value in join or string at -e line 1, <INPUT> line 3.

Use of uninitialized value in join or string at -e line 1, <INPUT> line 3.