my @lines = ('Attribut1 50 :xyz,xy', 'Attribut2 Zeit :nv', 'Attribut3 17:00:00 :nv,oder');

my @data = ();

my $CMD = "attr";
my $DEV = "Rollladensteuerung";

for my $line_str (@lines) {
	my @cols = split(/ /, $line_str);
	
	push @data, { Attr => $cols[0], Value => $cols[1], Selection => $cols[2] };
}


for my $data_line (@data) {
	say "$CMD $DEV $data_line->{Attr} $data_line->{Value}";
}