for $row ( @out ) 
{
    print "@$row\n";
}