First off, your script does not compile; please make sure to test your code before posting it here. Next - no, your '@data' isn't going to change: you're populating it from a file, and never doing anything to change it. Try something like this, instead:

#!/usr/bin/perl -w
use strict;

open INPUT, '<', "/home/test/test.txt" or die "test.txt: $!\n";

my ($seen, @data);
while(<INPUT>) {
    $seen++ if /^Parameter/;
    push @data, $_ if $seen;
}
close INPUT;

print @data;
[download]

This will print out the content of '@data', which will only be populated per your requirements.