foreach my $row ( @sim ) {
    print OUTPUT @{ $row }, "\n";
}