Shell Programming and Scripting

#!/usr/bin/perl -w
use DBI;

        my $dbh = DBI->connect("DBI:mysql:MYDB","user","password",) or die $DBI::errstr;
        my $sth = $dbh->prepare("SELECT serial FROM admin WHERE type = 'server'") or die $DBI::errstr;
        $sth->execute or die $DBI::errstr;
        my $arrayref = $sth->fetchall_arrayref();
        

 	 foreach (@$arrayref) {
		print "$_\n";
	 }

$ ./dbi-array.pl
ARRAY(0x9820c28)
ARRAY(0x9820c18)
ARRAY(0x9820bc8)
ARRAY(0x9820bb8)
ARRAY(0x9820b68)
ARRAY(0x9820b58)
ARRAY(0x99b5c10)

 	 foreach (@$arrayref) {
		print @{$_} . "\n";
	 }

foreach (@$arrayref) {
    print $_->[0],"\n";
}