while($logfile = shift) {
    push @data_sets, ({"type" => "file"}, $logfile);
}

gnuplot({"title" => "foo"},
        \@data_sets);