# ...

foreach my $line (@Data) {
    # do something with $line
}