$points = pop @arr;
$points =~ s/\.//g;