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

my $num = 20;
my @array = ( "Carolyn", "Aimee", "Bob", "Janice" );

&PrintData(\$num, \@array);


sub PrintData
{
  my ($value) = @_;
  print "The value of \$num is: ${$value}";
}