Of course, you just need to assemble the list of headers the right way. For instance:

#!/usr/bin/perl

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

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

HTH!