Help for this page
print "$fields[0] fields[1]";
print "$fields[0] $fields[1]";
#!/usr/bin/perl -l ... } close $data;