while (<>) {
    next if /^#/;
    next if /^$/;
    chop;
    @piggies = split(/,/);
    # Your code here
}
