Select Code to Download

#!/usr/bin/env perl

...
say q{First cell value: }, $real_first_row->[0][0];

close $csv_file;

ken@ganymede: ~/tmp
$ cat pm_csv_first_cell.csv
...
First cell value: z
ken@ganymede: ~/tmp
$