#!/opt/bin/perl
#
# The COMMA() Subroutine, when given a number, puts the commas in the 
# right places. I came up with this in my PERL Class, and I've very fond
# of it.

sub comma {
           $_[0]=reverse $_[0];
           $_[0]=~s/(...)/$1,/g;
           $_[0]=~s/,$//;
           $_[0]=reverse $_[0];
          } 

      $encase=comma($ARGV[0]);
      print $encase;
