#!/usr/bin/perl

use Data::Dumper;

my $var = "VARVALUE";
my @arr = ( 'ARRVAL1', 'ARRVAL2' );
my %hash = ( hashkey1 => hashval1, hashkey2 => hashval2 );
open my $fh, "| more";

my %HOfR = ( \$var => "valForRefOfVar",
             \@arr => "valForRefOfArr",
             \%hash => "valForRefOfHash",
             \&Sub => "valForRefOfSub",
             $fh => "valForRefOfGlob" );

print Dumper( \%HOfR );

sub Sub { };