#!/bin/perl -w
use strict;
use XML::Twig;

my $twig= new XML::Twig;

$twig->parse( \*DATA);           # build the twig
my $root= $twig->root;           # get the root of the twig (stats)

my @vob_not    = $root->children( sub { my $elt= shift; !$elt->att( 'vob')});
my @vob_none   = $root->children( q{player[@vob="none"]}    );
my @vob_letter = $root->children( q{player[@vob=~/^[a-z]$/]});
   @vob_letter = sort { $a->att( 'vob') cmp $b->att( 'vob') }
                    @vob_letter;
my %letters= map { $_->att( 'vob') => 1 } @vob_letter;

print "No attribute or vob=none\n",
      "-" x 20, "\n";
foreach my $player (@vob_not)
  { printf( "%-20s\n", $player->field( 'name')); }
foreach my $player (@vob_none)
  { printf( "%-20s....none\n", $player->field( 'name')); }


print "\n",
      join( ', ', sort keys %letters), "\n",
      "-" x 20, "\n";
foreach my $player (@vob_letter)
  { printf( "%-20s....%1s\n", $player->field( 'name'), $player->att( 'vob')); }

__DATA__
<stats><player vob="d" ><name>Houston, Allan</name><g>69</g></player>
<player vob="z" ><name>Sprewell, Latrell</name><g>69</g></player>
<player vob="a" ><name>Ewing, Patrick</name><g>49</g></player>
<player vob="none" ><name >Johnson, Larry</name><g>57</g></player>
<player vob="g" ><name>Camby, Marcus</name><g>48</g></player>
<player vob="d" ><name>Thomas, Kurt</name><g>67</g><ppg>7.9</ppg></player>
<player vob="none" ><name >Ward, Charlie</name><g>59</g><ppg>7.5</ppg></player>
<player vob="none" ><name>Wallace, John</name><g>55</g><ppg>6.6</ppg></player>
<player><name>Childs, Chris</name><g>61</g><ppg>5.3</ppg></player>
<player><name>Duncan, Tim</name><g>66</g><ppg>23.1</ppg></player>
<player><name>Robinson, David</name><g>68</g><ppg>17.1</ppg></player>
</stats>