my @atoms = ([qw(123 231 312)], [qw(456 564 646)], [qw(789 897 978)]);
open(my $fh, ">", "somefile.txt") or die("ack - $!");
print $fh "@$_", $/ for @atoms;
close $fh;

__END__

shell> cat somefile.txt
123 231 312
456 564 646
789 897 978