#! /usr/bin/perl

use strict;
use warnings;

my %hash = (
  'description' => '$description',
  'new-role-name' => '$new-role-name',
  'role-name' => '$role-name',
);

my $param = join(q{, }, map{qq{$_ => $hash{$_}}} keys %hash);

print $param;