Use a flag:

my $parameterFound = 0;                                      # the fla
+g

while( my $line = <@data> )         # your code that claims to read th
+e file line-by-line
{
    if ($line =~ /Parameter/)  { $parameterFound = 1 ;}  # start readi
+ng real data now
    next if ($parameterFound == 0);                      # we are stil
+l in the header
    print ....
}
[download]

HTH, Rata