#!/usr/bin/perl

use warnings;
use strict;

package Name_option;

    sub new {
        my $classname = shift;
        my $args = {@_};
        my $self = { name => $args->{name} || "default",
                     cols => $args->{cols} || [] };
        return bless($self, $classname);
    }

    sub getCols {
        my $self = shift;
        return @{$self->{cols}};
    }

package main;

my $n = Name_option->new(name => "xz2d4",
                         cols => ["ID", "Datum", "Vorname"]);
my @cols = $n->getCols();
for my $i (@cols) {
    print "$i\n";
}