#-------------------------(   loadScores   )------------------------#
#  Load scores for part C from file                                 #
#-------------------------------------------------------------------#
sub loadScores
{
    my ( $file ) = @_;
    my @positionScores;                    # INDEX: Pos-1, VAL: Score

    open( DATA, $file ) or die "ERROR: Cannot open score file\n";
    while ( my $line = <DATA> )            # Loop through input file
    {
    chomp $line;
    my @row = split( "\t", $line );
                                       # Add next score onto the array
				       push( @positionScores, $row[1] ) if ( $row[1] =~ /\d+/ );
    }
    return ( \@positionScores );
}