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