#!/usr/bin/perl -w
use strict;

foreach my $ref (\'', \"\0", \undef) {
  print $ref, " --> ", ${$ref}, "\n";
}