{
    local $, = ' ';
    print @{$_}[0..4], "\n" for @Data;

}

##</code><code>##

{
    local $, = ' ';
    print @$_[0..3], $$_[4] ."\n" for @Data;

}