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"; 

  }