#!/usr/bin/perl -l

sub mychomp { chomp $_[0] }

my  $x = "a\n";
my  $y = "b\n";
our $z = "c\n";

$x = chomp $x;
$y = mychomp($y);
$z = chomp $z;

print "($x,$y,$z).";