#!/usr/bin/perl
use strict;
use warnings;

my @xs = (a => 1, b => 2, c => 3);
local $" = ', ';
print "@xs";