use Statistics::R;
use Data::Dumper;

my @arr = qw(foo bar baz);
my @mat = (["fred", "barney", "pebbles", "bambam"],
	       ["george", "jane", "elroy", "judy"],
	       ["homer", "bart", "marge", "maggie"]);

my $R = Statistics::R->new();
$R->set('arr', \@arr);
$R->set('mat', \@mat);

my $r_arr = $R->get('arr');
my $r_mat = $R->get('mat');

print "Array:\n", Dumper($r_arr);
print "Matrix:\n", Dumper($r_mat);