qw[ wins places shows losses ] #### $self->{wins} = $STANDINGS[ 0 ] || 0; $self->{places} = $STANDINGS[ 1 ] || 0; $self->{shows} = $STANDINGS[ 2 ] || 0; $self->{looses} = $STANDINGS[ 3 ] || 0;