After reading Text::CSV the following code can be suggested:

my $a_one = $csv->getline($fh)->[0];
<...>
my $first_row = $csv->getline_all( $fh ,2, 1 ); # decrease offset by 1
+ because one line was read earlier
[download]