my @first_ones;
for my $row (@rows) {
    last if [split /;/, $row]->[2] == 20;
    push @first_ones, $row;
}
print Dumper \@first_ones;