#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $aref = undef;

print 'BEFORE: ', $aref ? "TRUE\n" : "FALSE\n";
print Dumper $aref;
print "\n";

my @a = map {$_} @$aref;

print 'AFTER: ', $aref ? "TRUE\n" : "FALSE\n";
print Dumper $aref;
print "\n";