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

##</code><code>##

for ( my $i = 0; $i < scalar @points; $i++ )