$Cal_ref = {
            'cal_name'  => $cal_name,
            'dates'     => \@dates,
            'desc'	=> $cal_desc
        };

        $twsCalendars[$i] = $Cal_ref;
        $i++;
...

for (my $i = 0; $i < $length; $i++) {
	# cycle through the list and print all the calendar names
    my $c_href = $twsCalendars[$i];
    my $cal_name = $$c_href{'cal_name'};
    my $foo = ".cal";
    my $var1 = $cal_name . "$foo";
    print ("$cal_name\n");
    print ("$var1");
    print "\n";
    print ("    $var1");
    print "\n";

##</code><code>##

BCPFTPCL
.calTPCL
.calBCPFTPCL