#!/usr/bin/perl

# open file
        open(FILE1,"data.txt")or die ("Unable to open the file.");

# read file into an array and close
        my @data = <FILE1>;
        close (FILE1);

# Use a FOREACH loop to read through the data in the array

        foreach $caseMetrics (@data)
        {
        ($caseOwner,$caseNumber,$caseState,$openedDate,   )=split(',',$caseMetrics);
         print "$caseOwner\n";
         print "$caseNumber\n";
        print "$caseState\n";
        print "$openDate\n";
		}