Shell Programming and Scripting

$file="newfile";
open(DAT, $file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);

foreach $line (@raw_data)
{
chop($line);
($cc,$c_name,$H1,$H2)=split(/,/,$line);
}

$ cat myprog
#!/usr/bin/perl

use strict;
use warnings;
use English qw( -no_match_vars );

my $dataFH;
my $line;
my $cc;
my $c_name;
my $H1;
my $H2;
my $file = 'newfile';

open $dataFH, "<", $file or die "Cannot open file $file:  $OS_ERROR\n";

while ( $line = <$dataFH> ) {
  chomp ($line);
  ($cc, $c_name, $H1, $H2) = split(/,/, $line);

  print "cc=$cc\n";
  print "c_name=$c_name\n";
  print "H1=$H1\n";
  print "H2=$H2\n";
}

close $dataFH or die "Cannot close $file:  $OS_ERROR\n";

exit 0;

$ cat newfile
cc, c_name, H1, H2

$ ./myprog
cc=cc
c_name= c_name
H1= H1
H2= H2