Select Code to Download

#!/usr/bin/perl

...
    }
    
print "The high score was $high_score\n";

#!/usr/bin/perl

...
    }
    
print "The high score was $high_score\n";

#!/usr/bin/perl

...
    }
    
print "The high score was $high_score\n";

#!/usr/bin/perl

...
sub last_score { $_[0]->{$_[1]}[-1]          }
sub game_count { scalar @{ $_[0]->{$_[1]} }  }
sub score_n    { $_[0]->{$_[1]}[ $_[2] - 1 ] }

#!/usr/bin/perl

...
    $sum += score_n( @_, $_ ) foreach ( 1 .. game_count( @_ ) );
    $sum;
    }

sub stats
    {                
    @{ $_[0] }{ qw(name sum average last) } = 
        ( $_[1], &sum, &average, &last_score );
    }

#!/usr/bin/perl

...
        
    \%hash;
    }

#!/usr/bin/perl

...
    }

sub high_score { ... }

package Local::Scores;
use DBM::Deep;
...
    }

sub high_score { ... }

#!/usr/bin/perl

...
    {
    $modules->{$elem->[0]} = $elem->[1];
    }