use Algorithm::Loops qw(MapCar);
# ....

$ss->write_row($_) for MapCar {[@_]} @data ;