#!/usr/bin/perl
#
#Program to check and return 10 players score from a large list
#
#
$file = 'score';        # file in format player,score
$player = 'player' ;    #file in format player
open(INFO,"$score" );   #open file with 100 players and scores
open(INFO2, "$player" );# Open the file with 10 players to get thier scores
        $index = 0;
        @total = (<INFO>);
        while (<INFO2>){
                @score = split(/[,]/,$_);
                if ($total[$index] == $score[0])
                        {
                        print "$total[$index] , $score[0] ,\n";
                        $total++;
                        }
        }