Select Code to Download

#!/opt/perl-5.18/bin/perl
use strict; use warnings;
...
}

# note that fetch is an alias for fetchrow_arrayref

$ perl arrayref.pl
      id  1
...
      id  2
  credit  1500
   debet  200