use strict;

# hacksym('name', ref)
# e.g. hacksym('foo', \@bar) makes @foo an alias for @bar
sub hacksym {
  my $name = shift;
  my $ref = shift || die "need a reference!";
  no warnings 'uninitialized'; 
  no strict 'refs';
  *{$name} = $ref;
}