$line =~ /^(\d{1,2})$/;
$points[$1] = 1;