Select Code to Download

for my $row ( 0 .. 0 ) { 
 @value = map {
...
        $cell ? $cell->value() : '';
    } @required_col;

#!/software/bin/perl

...
 }

}