my @MyArray = ( 1, 2, 3, 4 );
  my $varname = 'MyArray';
  my $x = eval '$' . $varname . '[0]';  # THIS IS BAD!!!!!
  print $x; # 1