#!/usr/bin/perl

# https://perlmonks.org/?node_id=1227147

use warnings;
use strict;

my $short_pattern = 'FTTF';

my @result = grep { 
				$short_pattern = ( chop $short_pattern ) . $short_pattern;
				$short_pattern ge 'T' 
				} 0 .. 12;

print "@result\n";