#!/usr/bin/env perl
use strict;
use warnings;
use Template;

my $from_db = q/Oh this year I'm off to Sunny [% country %]!
/;

my $tmpl = Template->new;

for my $dest (qw/Greece Italy Spain/) {
    $tmpl->process (\$from_db, { country => $dest });
}