#!/usr/bin/env perl
while (<>) {
chomp;
push @file1, $_;
$len ++;
}
push @file2, $_;
for ($i = 0; $i < $len; $i ++) {
print $file1[$i],' ',$file2[$i],"\n";
给分吧。
