$ perl -le '
> $seq_num = 1234;
> $quoted_seq_num = qq{"$seq_num"};
> print qq{$seq_num - $quoted_seq_num};'
1234 - "1234"
$

##</code><code>##

$return_val = system($grph_gen_multi_seq,
    $data_source_contents[2],
    qq{"$data_source_contents[2]"},
    $seq_num,
    qq{"$seq_num"},
    $data_source_contents[1]);