Select Code to Download

my $line = <>;
  while (defined($line = <>)) {
...
    print "Customer Name: $items[0]  \t  Number of Books checked out: 
+$items[5]\n"; 

  }

Customer Name: wilma flinstone            Number of Books checked out:
+ 3
Customer Name: barney rubble      Number of Books checked out: 5
...
Customer Name: Great Gazoo        Number of Books checked out: 2
Customer Name: Charlie Harper     Number of Books checked out: 4
Customer Name: Neil Gruesome      Number of Books checked out: 6