#!/usr/bin/perl -w

use strict;
use DBI;
use Data::Dumper;

my $dbname = 'xxx'
my $user = 'xxxxxx'
my $passwd = 'xxxx'

my $dbh = DBI->connect('DBI:Oracle:$dbname', '$user', '$passwd')
                or die "Couldn't connect to database: " . DBI->errstr;

my $sth = $dbh->prepare("select TABLESPACE_NAME, FILE_NAME, BYTES, MAXBYTES from dba_data_files where FILE_NAME like '%sapdata%' order by TABLESPACE_NAME")
                or die "Couldn't prepare statement: " . $dbh->errstr;

my @data;

$sth->execute
                or die "Couldn't execute statement: " . $sth->errstr;

while (my @line = $sth->fetchrow_array) {
  push(@data,\@line);
}
#
# alternativ:
#while (my $lineref = $sth->fetchrow_arrayref) {
#  push(@data,$lineref);
#}
#
# oder:
# @data=$sth->fetchall_array();

$sth->finish;

$dbh->disconnect;

print Dumper(\@data);