my $line = <>;
  while (defined($line = <>)) {
    chomp($line);
    my @items = (split /:/, $line);
    #my @data_items = (@items) [0,5];
    #print "Customer Data: @data_items \n";
    print "Customer Name: $items[0]  \t  Number of Books checked out: $items[5]\n"; 

  }

##</code><code>##

Customer Name: wilma flinstone            Number of Books checked out: 3
Customer Name: barney rubble      Number of Books checked out: 5
Customer Name: Sam Slate          Number of Books checked out: 0
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