Select Code to Download

use Data::Dumper;
say Dumper \@rot_mat;

$rot_mat[0][0]=cos($phi_rad)*cos($theta_rad)*cos($psi_rad)-sin($phi_ra
+d)*sin($psi_
+rad);

#!/usr/bin/env perl
use strict;
...
for ( @a ) {
   say (join ' ', @{ $_ });
}

[05:58][nick:~/monks]$ perl 1134141.pl
$VAR1 = [
...
foo bar
baz quux