Take a look at Object::MultiType. It can help you to make an even more crazy and cool way to use directly the Perl syntax for variables to handle DBI.

With it you can do:

  use Object::MultiType ;

  my $scalar = 'abc' ;
  local(\*GLOB) ;
  tie(*GLOB => 'TieGlobPack') ;

  my $obj = Object::MultiType->new(
  scalar   => \$scalar ,
  tiearray => 'TieArrayPack'
  tiehash  => 'TieHashPack'
  code     => sub{ return("I'm a sub ref!") ; }
  glob     => \*GLOB ,
  ) ;
  
  print "Me as scalar: $obj\n" ;
  
  my $array_1 = $obj->[1] ;
  
  my $hash_B = $obj->{B} ;
  
  while( <$obj> ) {
    print $obj "$_\n" ;
  }
  
  &$obj(args) ;
[download]

ENJOY! ;-P