open($temp_line1, '<' ,'c:\video\temp1.txt') or die("Cannot open temp1.txt\n");
open($temp_line2, '<', 'c:\video\temp2.txt') or die("Cannot open temp2.txt\n");

my @data = ([ 0 .. 2000   ],  # x Values
            [ $temp_line1 ],  # y Values
            [ $temp_line2 ]); # y Values
close $temp_line1;
close $temp_line2;

__DATA___

temp1.txt '16, 17, 19, 22, 21, 22, 25, 28, 31, 35, 39,....'
temp2.txt '17, 19, 20, 22, 25, 27, 29, 33, 36, 40, 43,....'