Select Code to Download

#!/usr/bin/perl -l

sub mychomp { chomp $_[0] }
...
$z = chomp $z;

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