#!/usr/bin/perl
# Solutia oficiala
use v5.14;
use warnings;

my @args = <>;
shift @args;
chomp @args;
my ($format, @vars) = split ',', pop @args;
my %args = map { split '=' } @args;

printf $format, map { $args{$_} } @vars;