use warnings;
use strict;

open(FH, '<', "rules.txt");
my @data = <FH>;
close FH;

foreach my $value (@data)
{
       chomp($value);
       my ($SourceorDestination, $name, $value) = split(/,/, $value); 
       #Insert compare code here
}