Shell Programming and Scripting

/opt/accounts 80,90,60,70 Accounts Team
/opt/finance 70,45,90,89 Finance Team

open (IN, "/var/opt/file.cfg");
while (<IN>) {
        chomp();
        my ( $filesystem,$warning,$minor,$major,$critical,$team ) = split(/[ ,]/);

        $hash->{$counter} = {
                counter => $counter,
                filesystem => $filesystem,
                warning => $warning,
                major => $major,
                minor => $minor,
                critical => $critical,
                team => $team
        };

        $counter++;
}

while(<FILE>) {
        chomp;
        $_ =~ m/(.+)\s(\d+),(\d+),(\d+),(\d+)\s(.+)/;
        $hash->{$counter} = {
                counter => $counter,
                filesystem => $1,
                warning => $2,
                major => $3,
                minor => $4,
                critical => $5,
                team => $6
        };
        $counter++;
}