use v5.14;
use warnings ;


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