my $currec = $row; foreach my $columns (keys %$currec){ say $columns; say $currec{$columns}; }