#!/usr/bin/perl -Tw
use strict;
use Text::ParseWords;

my $fname = "CommaSample.dat";
my $pretty = 1;
BARE: {