你把 "@myfile" 给拼错了.
#! /usr/bin/perl

$filename = "myfile.dat";
open (FILE, "$filename") || print "Can not open myfile.dat!\n";
///////////////
@myfile = <FILE>;   <-你写了"@myflie"
////////////////
close FILE;

print " myfile is: ", @myfile;

foreach $line (@myfile)
{
    print $line;
}

# now print the number of lines in @myfile
print "\n lines: ", $#myfile+(1-$[);

# now print the number of chars in @myfile
foreach $line (@myfile)
{
    $chars += length($line);
}
print "\n characters: ", $chars;
////////////////////////
输出结果如下：
 myfile is: #! /usr/bin/perl -w
 while (<>) {
        while ( /(\b[^\W_\d][\w'-]+\b)/g ) {   # misses "`sheep'"
            $seen{$1}++;
        }
    }
    while ( ($word, $count) = each %seen ) {
        print "$count $word\n";
    }#! /usr/bin/perl -w
 while (<>) {
        while ( /(\b[^\W_\d][\w'-]+\b)/g ) {   # misses "`sheep'"
            $seen{$1}++;
        }
    }
    while ( ($word, $count) = each %seen ) {
        print "$count $word\n";
    }
 lines: 9
 characters: 195
我在这打开的文件是另外一个PERL程序