Select Code to Download

#! /usr/bin/perl

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

print $param;

role-name => $role-name, new-role-name => $new-role-name, description 
+=> $description