#!/usr/bin/perl

use feature qw/say/;
use warnings;
use strict;

my $input = 8;
my @headers = reverse map { qr/^$_$/; } (0..($input - 1));