# ...
my %titles = (
q{01} => q{First},
q{02} => q{Second},
q{03} => q{Third},
q{04} => q{Fourth},
q{05} => q{Fifth},
q{06} => q{Sixth},
);
my @cmds;
for my $number (qw{01 02 03 04 05 06}){
my $cmd = build_command($number, $titles{$number}, %args);
push @cmds, $cmd;
}
# ...
####
sub build_command {
my $num = shift;
my $title = shift;
my %args = @_;
my $cmd = sprintf(
qq{set title "The %s Indicator\n"},
$title,
);
# ....
##
##
...
######################################
$multiplot_title
$cmds[0]
$cmds[1]
unset multiplot
...