my @columns = qw#A B#;

foreach (@columns)
{
    my $rows = $DBH->selectcol_arrayref ("SELECT $_ FROM $table") or die $DBH->errstr ();
    print STDOUT join ('|', @$rows), "\n";
}