{
    local $" = ' --> ';
    print "@array";
}

print join ' --> ' => @array;