sub split_logs ($$$) {
    my ($source_file, $business_list, $filename_prefix) = @_;

    foreach my $business (@$business_list) {
        my ($name, $file) = @$business;

        my $outfile = "/inside29/urchin/test/newfeed/$filename_prefix-$file";

        print  "Creating of log for $name started at " . localtime() . "\n";

        system("grep \"$name\" $source_file >> $outfile");

        print "Log for $name created at " . localtime() . "\n";
    }
}