use warnings;
use strict;
#....
$_ = 'foobarbaz';
my $backrefcount = 3;
/(f.o)(b.r)(b.z)/;
foreach (1..$backrefcount)
{
    no strict;
    print ${$_}."\n";
}