$return_val = system($grph_gen_multi_seq,
    $data_source_contents[2], myquote($data_source_contents[2]),
    $seq_num,                 myquote($seq_num),
    $data_source_contents[1]);

# ...

sub myquote {
    my($str) = @_;
    return "\"$str\"";
}