sub println {
    local $\ = "\n";
    print @_;
}

@arr = qw(some list items);

for(@arr){
    println;
}