#!/data/local/bin/perl -w
use strict;
 
my $state   = $ARGV[0];
my $county  = $ARGV[1];
my $tract   = $ARGV[2];
print "$state, $county, $tract";