while (<FHIN>)
{
## takes each line and sends it through
$line=$_;
## remove the new line
chomp();
## we have to convert the line into an array to change
## the timestamp to local time
## so using the split command it splits the line by the
## commas (,) and assigns it the variable $line
@line = split(/,/ ,$line);
## takes the first value of the array $line, which is
$line[0] and we are going to convert the time stamp
## using the localtime function
print @line[0];
## declare the variable
$t= @line[0];
print "this is what t is now $t\n";
## assign the format
($s,$m,$h,$md,$mon,$year) = localtime($t);
## increment mon by one because in unix time months start from 0-11 not 1-12
$mon++;
## add 1900 to the year because unix time starts the year 2000 at 100
## took the format and put it into a readable and useable format
$firstnum = "$mon/$md/$year $h:$m:$s";
my $firstnumtest = "$mon$md$year";