{
    my $c;
    for my $thingy (@intervals) {
        printf "%2d. '%s'\n",++$c, $thingy;
    }
}