Skrypt Perla do odczytu pliku csv z określonego wiersza do końca pliku

Mam plik CSVmy.csv z tą treścią:

abc,yyy

efg,zzz

zsc,vvv

uvw,ggg

W zależności od wartości zmiennej$X Muszę odczytać z tej konkretnej wartości do końca pliku. Na przykład:

Jeśli$X = efg, wyjście będzie:

efg,zzz

zsc,vvv

uvw,ggg

Dla$X = zsc:

zsc,vvv

uvw,ggg

Jest to skrypt, który stworzyłem, który odczytuje całą zawartość pliku CSV i wyświetla go:

use strict;
use warnings;

open(my $data, '<', $file) or die "Could not open '$file' $!\n";

while (my $line = <$data>) {  
    chomp $line; 
    my @field = split "," , $line;
    print "$field[0] $field[1]";
}

Pomóż mi ze skryptem, aby wyświetlić powyższy scenariusz.

questionAnswers(2)

yourAnswerToTheQuestion