Select Code to Download

#!/usr/bin/perl

no strict;  # Yuk!  
no warnings;  # Yuk!
# s/no/use/gsm;

my $step1;
my $step2;
...
my @array1;
my @array;
my $i = 0;

open(FILE, "assign");

open my $fh, '<', 'assign' or
  die "hard, but say why (\$!): $!\n";

$line = <FILE>;
while ($line ne ""){

while (<$fh>) { ... # or
while (my $line=<$fh>) { ...

        chomp($line);
        if($line =~ /^(\S+)\s+(\d+)$/) {
                print "inside\n";
                $hash{$1} = $2;

                $i++;

while( ($key, $value) = each %hash) {
        print "$key +> $value\n";
        $key = $value;
}

#!/usr/bin/perl -ln

...
}

__END__