open (FH, "<data.txt");

while (<FH>) {
chomp ($_);

($x, $y) = split (/\s+/, $_) unless /RT/;
   push @xes, $x;
   push @ys, $y;
}


my $mygraph = GD::Graph::lines->new(600, 300);
$mygraph->set(
x_label => 'RT',
y_label => 'HEIGHT',
title => 'xxx'
);

$image = $mygraph->plot( [ \@xes, \@ys ] ) or die $mygraph->error;

open(IMG, '>file2.png') or die $!;
binmode IMG;
print IMG $image->png;
close IMG;