# @names is a list of file names, and I've created a matrix
# named after each file...
my $x = 3;
my $y = 3;
my @one;
print "one <- data.frame(a=c(";
foreach my $name (@names) {
  push (@one, @{$name}[$x]->[$y]);
}
print join(",", @one), "))\n";