use strict;
use warnings;

for my $avg (0, 1.3, 1.5, 1.6, 3, 5) {
    my $average = $avg;
    my $stars = 0;
    
    print "$average: ";
    
    while ($stars < int ($average)) {
        print "*";
        ++$stars;
    }
    
    if ($stars <= $average - 0.5) {
        print "+";
        ++$stars;
    }
    
    while ($stars < 5) {
        print ".";
        $stars++;
    }
} continue { 
    print "\n";
}