Re^2: How to declare variables per loop

[wfsp]

Looks good. I would leave it at that but, perhaps for future reference, I couldn't resist a further tweak. :-)

# ...
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
  ...